DDDDDDDDDDDD «sé EEE EEEEEEEEEEEE LLL TITTITTTITITTTT | AAAAAAAAA 

DDDDDDDDDDDD =—ss«EEEEEEEEEEEEEEE LLL TITTITITITTTTTT | AAAAAAAAA 

DDDDDDDDDDDD ~—ss« EEEEEEEEEEEEEEE LLL TITTTTTTTTTTTTT §«——- AAAAAAAAA 

DDD pod EEE LLL TIT AAA AAA | 

DDD DDD EEE LLL TIT AAA AAA | 

DDD pop EEE LLL TIT AAA AAA | 

DDD DDD EE LLL TIT AAA AAA | 
D DDD EEE LLL TIT AAA AAA | 

DDD DDD EEE LLL TIT AAA AAA 

DDD DDD EEEEEEEEEEEE = LLL TIT AAA AAA 

DDD DDD EEEEEEEEEEEE = LLL TIT AAA AAA 

DDD DDD EEEEEEEEEEEE = LLL TIT AAA AAA 

DDD DDD EEE LLL TIT AAAAAAAAAAAAAAA | 

DDD DDD EEE LLL TIT AAAAAAAAAAAAAAA | 

DDD DDD EEE LLL TIT AAAAAAAAAAAAAAA 

DDD DDD EEE LLL TIT AAA AAA 

DDD DDD EEE LLL TIT AAA 

DDD DDD EEE LLL TIT AAA AAA 

DDDDDDDDDDDD ss: EEEEEEEEEEEEEEE LULLLLLLLLLLLLL TIT AAA AAA 

DDDDDDDDDDDD «=—s«EEEEEEEEEEEEEEE LLLLLULLLLLLLLL TIT AAA AAA 

DDDDDDDDDDDD«=—=s«EEEEEEEEEEEEEEE LULLLLLLLLLLLLL TIT AAA AAA 


*eF ILE**1De*DELTA 
get 
DDDDDDDD EEEEEEEEEE LL TTTTTTITMTT AAAAAA 
DDDDDDDD EEEEEEEEEE LL TTTTITTTMTT AAARAA 
dD DD EE LL TT salad Ae 
dD DD EE LL TT ba ah 
dD DD EE LL TT Aa AA 
dD DD EE LL TT AA Aa 
dD DD EEEEEEEE LL TT Aa Ah 
dD DD EEEEEEEE LL TT AR Lal 
DD DD EE LL TT ARABAAAAAR 
0D DD EE LL TT AAAAAAAAAA 
dD DD EE LL TT aa a eeee 
dD OD EE LL TT AA bb cove 
DDDDDDDD EEEEEEEEEE LLLLLLLLLL TT Ba Aa eeee 
DDDDDDDD EEEEEEEEEE LLLLLLLLLL TT Aw aa eee 
LL 11111] SSSSSSSS 
LL HI SSSSSSSS 
LL I] $$ 
LL I] SS 
LL I] $$ 
LL I] SS 
LL I] SSSSSS 
LL I] SSSSSS 
LL I] $$ 
LL I] SS 
LL I] SS 
LL I] SS 
LLELLELLLLL HII] SSSSSSSS 
LLELELELLLLE W111 SSSSSSSS 
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DF ,SW_PROCESS 
LE DELTA™= MULTIMODE mnacesh DEBUGGER 
—E XDELTA = EXECUTIVE besucter 
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COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
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ALL RIGHTS RESERVED. 
THIS fo “inthe fe eatin re UNDER A LICENSE — MAY BE USED AND sonics 


SzzZ 
vor 


ON OF TH T "Sor ARE OR ANY H 
¢ THEREOF oy NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


+ ® 
e ® 
* cm 
® ® 
t ® 
e w 
© ® 
® ® 
ae © 
& ® 
* TRANSFERRED. ’ 
eo % 
® eo 
® e 
® t 
® ® 
* ® 
.s * 
* ® 
ie we 
: ® 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
ee eokatite. NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONS . 
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FOR THE USE OR RELIABILITY OF ITS 
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; ; FACILITY: EXECUTIVE, DEBUGGING TOOLS 


: ; ABSTRA cr 

THIS MODULE PRODUCES TwO DIF 
OF THE ASSEMBLY SWITCH, SW_P 
DEBUGGER USING SYSTEM SERVIC 
DEBUGGING TOOL. 


ERENT DEBUGGERS DEPENDING ON bia SETTING 
OCESS. DELTA IS A MULTIMODE PROCESS 
S WHILE XDELTA IS A STANDALONE watt 


mo~7n 


Soe SYNTAX _IS ast ye FOR BOTH VERSIONS EXCEPT FOR 5? dari 
0 DIFFERENCES. THE SYNTAX IS QUITE TERSE AND SOMEWHAT =e IC A 
1S DOCUMENTED IN THE “GUIDE TO WRITING AN 1/0 DRIVER’ 


: ENVIRONMENT: 

: DELTA = NORMAL PROCESS 
XDELTA = STANDALONE 

BOTH VERSIONS MUST BE 


PRR REE ES PUWINUINWINIIIUIRonononononononunony 2 2 
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ENVIRONMENT, VARIOUS ACCESS MODES. 
RESIDENT, KERNEL MODE, IPL=31 
POSITION INDEPENDENT - BEWARE! 
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$ 4 DELTA. SRCJXDELTA.MAR; 1 
; .SBTTL HISTORY ; DETAILED 
; AUTHOR: R. HUSTVEDT CREATION DATE: 15-NOV-76 
; MODIFIED BY: 
v03-016 Bill Matthews 8-Jul-1984 


WwHM0001 1 

Call CONSGETCHAR and CONSPUTCHAR to do I/0 to the console 
terminal. Call CONSOWNCTY to allocate and CONSREALEASECTY to 
release the console terminal. 


v03-015 MSHO039 Richael S. Harvey 11-May-1984 
Adjust image activation SET exception vector index 
when setting up a DELTA rundown vector so that it 
won't be lost by a subsequent image activation prior 
to actual rundown. 


v03-014 MSHO002 Michael S. Harvey 16-Jan-1984 
Reenable AST delivery in EXIT command to ensure process 
doesn’t hang up when EXIT issued from kernel mode. Also, 
lengthen input command buffer to match specified maximum 
length in input Q10. 


v03-013 TCMO003 Trudy C. Matthews 13-Dec-1983 
Use “Write enable bit’’ when enabling and disabling 


44 console terminal access for venus. 

00 v03-012 KOM0084 Kathleen D. Morse 27-Sep-1983 

Add MicroVAX I support to CPUDISP macros. 
v03-011 RLRCPUDISP Robert L. Rappaport 15-Jun-1983 

Recode CPUDISP macros to use new format. 
4 v03-010 M1R1039 Michael I. Rosenblum 27-May-1983 

Fix non PIC reference in New format Q10 

v03-009 M1RO039 Michael I. Rosenblum 29-Apr-1983 


Make the process based DELTA use itemlist qio's with 
The no editing bit set. 


v03-008 JLV0236 Jake VanNo 25-MAR-1983 
Make Q10 a Q10W in OUTZ<TRING so that a read will 
not block write. 


v03-007 TCM0002 Trudy C. Matthews 16-Feb-1983 
Correct console enadle mask in TCMOOO1. 


v03-006 ROW0159 Ralph 0. Weber 28-JAN-1983 
Enhance DELTA initialization to set all pages in DELTA to user 
writable. This corrects a problem encountered while trying to 
debug DCL with DELTA. It also guarantees that DELTA will work 
n all eccees modes. Change Limit on rundown handler vector 
table from 505 to <256-7>. 


v03-005 TCMO001 Trudy C. Matthews 11-Jan-1983 
Change 11/780 machine check handler to yr ite PRS_SBIFS back 
to itself to clear error bit. Add 11/790 machine check 


ooo SSSSSSSSsssss 
SSSSSSSSSSSsssesessesessesesss 
SOOoooooo 


ta a I 


a 
° 
° 
° 
° 
* 
. 
° 
° 
° 
° 
e 
* 
° 
° 
o 
° 
° 
° 
e 
° 
° 
o 
° 
o 
e 
° 
e 
e 
° 
« 
° 
° 
° 
° 
° 
° 
e 
a 
° 
° 
o 
a 
° 
a 
© 
o 
° 
oe 
e 
e 
° 
e 
e 


E 14 
1 aay 137 3tO= 1986 $3: 38:31 AX/VMS Macro V04-00 Page >| 


HIS 


TIROSE iii 


8 RB RS 8 Dn 8 ne tt 4s ot 


PRORIFOPOPOPORNUn 2 oo eo 


ONAVE WI" OOONAUE UT OO 


handler; initialize 11/790 console interface registers. 


v03-004 ROW0143 no 24-N0V-1982 
Change processcnode” ou STRING to $9 oo age O10 for whole 
sgr ing. Make terminal reod/urtte 3) do a SWAITEF and retry 
wosut ttc tent resources error is ft .. ned y the Q10 system 
service. Make reference to CTLSGL_USRUNDWN TRUNDWN a 
weak reference so that DELTA can bé Linked with SYSINIT. 
Fix numerous branch destinations broken by the above. 
call to SIODEF definition macro. 


pees Be Andrew C. Goldstein, — 20:01 
on rundown handler on user mode star 


v03-002 ACG0286 Andrew C. Goldstein, ve Sie! ae 15:12 
Use privileged rundown handler to reset exception vectors 


v03-001 Leap | Richard I. Hustvedt 11-Apr-1982 
Turn off processor register mode when proceeding. 


¥Os-005 8 
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DECLARATIONS UOOrR "SSEP=158¢ 6:08:35 UDELTAssmeSxpetacran,1 = "#9 


SOOO OOOO OOO SOOO OOOO OOO Oe 
SIIANAFO8OOa> : 

b4--hapataias—+—4-4-4-$ 4 o > OOM ss rons CONAAAE 

PORN IPOPOPONOPOPOPOPONPORPONOPUPUPOPONIPIPIPONONOPUPONUPIPOPONONIPUPINUNINIID 2 = = 


~ 


if ifs 

OU if P4 

2006 : OWN STORAGE: 

d00¢ , .PSECT ZSDEBUG_CODE,LONG,PIC EXE ,WRT 

5006 AIF DE.SW_PROCESS 

, 9000 DELBASE:.LONG DEL BASE ~DELBASE ; RELATIVE PAGE NUMBER OF WRITABLE 

1600" 000 “LONG  <511*DELEND-DELBASE>€°C511; REL PAGE NUMBER OF END OF WRITABLE 
FCT* 00 “LONG DELTA_START=DELBASE ; START ADDRESS 


- LONG UFFER PADDING 
INBUF: .BLKB 0 NPUT BUFFER 
STATUS: .LONG TATUS FLAGS 
P0008 Fi: «LONG IgLos 


10000000 


Se Ge Ge Ge Ge Ge Ge Ge Ge 
— "NeW 


; MODIFY ENABLE FLAG FOR OTHER PROCESS 
; ADDRESS SPACES 
PID FOR ag te a O=>SELF 


; (FOR OUTPUT ADDRESS ROUTINE) 
; FIELD COUNTER 


Sete Ge Ge Ge Gee 
saad 
m 
z 
ao 
“ 
oO 
wv 
Dwo 
mmm 
< 
2 
.7,) 
— 
n” 


DATA TYPE 
CURRENT TYPE 


e 
a 
Oo 
z 
o 
foo Oo NN SOS COO CO OOOOOORO 


OPER: .BYTE ; OPERATOR 

B: 3; BASE OF DATA AREA(CENTER) 
CURDOT: .LONG ; CURRENT LOCATION 

QUAN 3 QUANTITY ¢ 


-Q) 
OUTPUT BUFFER 


PEF FWA INININININININININ) 4 


PRI =O OD NA NEP 9 ONAN EWI 9 ODNAUES WO OC UFWN—O me 


; REGISTER SAVE AREA 

SAVREG ; REGISTER SAVE AREA 
-BLKL 1 3 R 
“BLKL 1 > R 

SAVR2: .BLKL 1 :R 
*BLKL 1 : R 
-BLKL 1 3 RS 
“BLKL 1 > RS 
-BLKL 1 7 R 
*BLKL 1 :R 
-BLKL 1 ; Re 
BLK 1 7 R 
*BLKL so] : RI 
BLK 1 3: RI 

SAVAP: .BLKL 1 > AP 
*BLKL 1 > (FP) 


00000104 


SOOO OOOO OCOOCOS 


>oc¢ 


PROCESS DEBUGGER 


464 SAVSP: .BLKL 1 

45 SAVPC: .BLKL 1 

46 SAVPS -BLKL 1 
SAVOCR: .BLKW 1 
SAVRCR: .BLKW 1 
ASTEN: 
SAVRXCS:.BLKL 1 
“wee eecieapions 


WO OBNAULS WOO 
Setee 


PUPP PVPUSVSVSISION 
Soh ub abinceb = 
. 


9 OVROPC: 
7 


RESERVE SPACE FOR MULTIPLE MODE 
IF QF .SW_PROCESS 
“REP 
_ “BLKB  ConTexTSzZ 
+s, <CONTEXTSZ*<DTYPE=CONTEXT> 
+ 
OR 
ENDC 


BREAK POINT DATA 


-BYTE 0 
ALIGN LONG 


7 
74 BRKADR=.-4 


el 
76 XDELIBRK:: 
3 


NDF ,SW_PROCESS 
.LONG INISBRK 


4 . 
79 INIBRKA:.LONG 0 


BLKL 7 
; NBRK=<, -~4“BRKADR> /4 


pba gab 


XREGV: 3 
XDEL -LONBBASE:: 


Rei” 
BRROPS <1 
NOP 


-BLKB 7 
-BLKB 1 


“\BLKL 8 


-BLKL 8 
-BLKL 
NDF ,SW_PROCESS 


0 
tO NG SCHSGL_CURPCB 
-LONG SCHSGL-PCBVEC 


BSEp=198e 00:08:35 EDEL TA SReIKDELSA.AaR;1 


: 3 


a T CSR_ SAVE 
INPUT CSR_ SAVE 

AST ENABLE SAVE LOCATION 
CONSOLE RECEIVER STATUS 


; SIZE OF PER MODE CONTEXT AREA 


CONTEXT AREA 


t FOR EXEC,SUPER AND USER 


POINT AT Me # CURTYP 
SET TYPE T 
RESTORE LOCATION COUNTER 


OPCODE IN STEP-OVER BREAKPOINT 


L_ BREAKPOINT 


oc => 
= 209 
x= =-2oO 
m 
Dawn 
on 
o 
@mo 
2 z2un 
mon 
Pea 


INT ADDRESSES 
AKPOINTS 

AKPOINT FOR STEP-OVER 
MPORARY BREAKPOINTS 


é : “ 
mz = om 
mn 


—~ 
m 
geese 

an<wM 


=m 

>) 
=PFo 
 vwommwwzD 
Oo 


— 
Bo 
vo 
SSSr488 


4D eH 4 


ODES 
REAKPOINT OPCODE 


: 


Y 


DISPLAY LOCATION START 
COMMAND START 
X REGISTER VECTOR 
ENDANT CODE 


omog 
z2wom 
yvmvo 


row if, 


NMI 9 OUI OOWOWOOOOOOOOOONOO — 


SHE 
41 54 4C 45 44 24 209485 


1000040 
20000494 0490 
00000000 be 
D 
ee 
00000001 
00000000 
00000000 


RRR HW NHMMMMMMoO 
Fon 


POW S £FOOOFMOM OC 


r~ 


: LONG 

XDSSGL_XESTRING: 
. LONG 

XDSSGL_XF STRING: 


MCHKSAV: .BLKL 


- WORD 
TERMASKADR : 


-BLKL 
TTITMLSTLEN=.-TT 
DBGINPUT: 


- LONG 
atte 


“4 
@ 
z 
a 
= 
v 
c 
por 


x 
2 
a) 
2 
_— 
C2525 25 
o>o 
zxZz 
a=<a 


ECOND_PRIMARY: 
. LONG 
SCOND_PRIMARY : 
:LONG 
KCOND_LASTCHANC: 
» LONG 
ECOND_LASTCHANC: 
. LONG 


NAMES OD NA UNE WO OD NA NE WIN OOD NAUSEA OC OD NAUE U-2 OOONOUN Eo 


PUPS ER Be BB BS BB AAA AAI AIA II ROPOPPONIPUNINIID 2 2 2 — I = MOO OOOOOOO 


PF 
PF 


PF 
PF 


XDS$GT_WORD_PFN 


TR 
IT 


1 
4D 


4 
1 
64 


0 
? 
1 
1 
0 
0 
0 
0 
0 


"SoEP=HS 


BL 


NSAB 
NSAB 


| maaan 


RMS_MODIFIERS 
MSA_TM_NOEDIT 


MLST 


q 
; DBGINPUT+8 


BGSDELTA/ 


3 TRNINPUT+8 


; EXITHANDLE 
sEXITCODE 


Be 60:08:35 
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DELTAS SRE INDEL SAMAR: 1 wl 


SWAP_VBN | 
PTE BACK POINTER | 
BACKUP ADDRESS | 
REFERENCE COUNT 
FORWARD LINK 

CK LINK 


STATE 
TYPE 
XE;E WITH XO = PFN , DEFAULT TO WORD — 
xr ie WITH RO = PEN , DEFAULT TO WORD ARRAY 
AVED CONTENT OF MACHINE CHECK VECTOR 

FOR PROCESS VERSION 

10 STATUS BLOCK FOR TERMINAL READ 
HANN R 


C 
DESCRIPTOR OF INPUT/OUTPUT DEVICE 
(ADDRESS SET BY INITIALIZATION) 


THE ITEMLIST TO ALLOW DELTA TO TURN OFF ED 


SPECIFY THE MODIFIERS 
SPECIFY NO EDITING 


3 LENGTH OF TERMINATOR MASK 
SPECIFY THE TERMINATOR MASK 
3; ALLOW FOR RELOCATION 


DESCRIPTOR OF DEFAULT INPUT/OUTPUT 
FIRST DEFAULT DELTA INPUT 


TRANSLATED DBGSDELTA 
(ADDRESS SET BY INITIALIZATION) 


ACTIVE FLAGS BY ACCESS MODE 

EXIT HANDLER BLOCK 

EXIT HANDLER (ADDRESS SET BY INIT) | 
ADDRESS TO STORE STATUS (ADDRESS SET BY IN. 
RECEIVER FOR EXIT CODE 

PREVIOUS KERNEL PRIMARY HANDLER 
PREVIOUS EXEC PRIMARY HANDLER 

; PREVIOUS SUPER PRIMARY HANDLER | 
; PREVIOUS KERNEL LAST CHANCE HANDLER | 
; PREVIOUS EXEC LAST CHANCE HANDLER | 


| 
| 
| 


Bete Ge Ss Bete te Ge Se 
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DECLARATIONS aes ot 7 83:08:35 YOELYA’SRe a re ae ad dy 
5 SCOND LASTCHANC: 
: -LONG 0 : PREVIOUS SUPER LAST CHANCE HANDLER 
i TERMASK: : TERMINATOR MASK DESCRIPTOR 
4 “LONG — <189>1<1910>!<19] 3911 gr : TABLLE,CR,ESC 
8 «LONG <181>!<182>!<1815>!<1a29> Bd Pt ME) I, 
C -LONG 5>!<1919> : "or, *S 
; LONG ; 
i TERMASKLEN=. -TERMASK 
1? ~ENDC 3 
14 ¢ LIST OF OPCODES WHICH CALL ROUTINES 
14 OVEROPCODES: 
10 0514 37 -BYTE © *x10 ; 8888 
1 15 i “BYTE = *X1 : JSB 
3 316 7 “BYTE § = *X3 : BSBW 
FA 31 7% “BYTE “XFA : CALLG 
FB 18 75 “BYTE “XB : CALLS 
00000005 051 76 OVEROPCLEN = .-OVEROPCODES 
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WITCH 


ACTER § 


; DECIMAL AND HEX CHARS 
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PRIMARY COMMAND SCANNER 


eASCIZ <LF><CR>/EH?/<LF><CR> 
- WORD 


IF DF ,SW_PROCESS 

MOVAB W*OBGEXCEP, (FP) 

.ENDC 

BRB = = SCANP 

MOVAS OUTER,R4 

BSBW  OUTZSTRIN 

‘MOVE =P, SP 

MOVAB Input =8(R11),R9 

CLRB ss (RO) 

BSBW = RESET 

BSBBs«NNEXTP 

BRB SCANP 

BSBW GETCH 

Locc—OséR SNPRIN, PRIMARY 

BEOL ERROR 

SUBL3 8 MONPRIN RO 

CASE R LIMIT=416, <- 

Pr - 

COMMA 
OPERATOR. - 
OPERATOR. - 
OPERATOR. - 
OPERATOR. - 
NEGATE 
LBRACKET,- 
TAB 
LINEFEED,- 
RETURN, = 
SLASH, - 
DaUOTE ,- 
EQUALS,- 
oe 
STEPOVER,- 
INSTR, = 
SEMI,- 
COLON, = 
PREG, - 
Quant,- 
QUOTE. 
REGISTER,- 
GLOBL,- 
XREG.= 
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ENDENPR'= END EXPRESSION "S$Eb-198e 60:08:35 EDECYassmeSxbetacnan;1 = "29" 
+4 o34 «SBTTL ENDEXPR = END EXPRESSION 
495 ; 
496 ; 


497 : 
DB 498 ENDEXPR: 


05 oe OER Bebe OCs, SY_MEGATE.(R107.58 = SKIP IF WOT necare 
§ Ee ? 5$: BSBB 156 + PERFORM OFERATION 
6 Dd& O5E j CLRL se RG + CLEAR ACCUMULATOR 
FF AB 3 ES CLR OPER-B(R11) : INIT OPERATOR 
EA 5 10$: CASE OPER-B(R11),TYPE=8,<- : DO OPERATION 
aH ie thie Bi 
ath ies iia, 
SEA 19 DIV. ; DIVIDE, & 
57 56 78 3e8 1 SHFT: ASHL  R6,R7,R7 + SHIFT 
05 O5FD 51 RSB : AND EXIT 
57 56 C4 SFE 14 MUL: MULL R6,R7_ ; MULTIPLY 
05 0 15 RSB : AND EXIT 
57 56 C6 é 18 DIV:  DIVL R6,R7_ ; DIVIDE 
0 0 1 RSB : AND EXIT 
57 56 CO 06 18 ADD: ADDL R6,R7 ; ADD 
0 609 19 RSB ; AND EXIT 


TA = MULTIMODE PROCESS DEBUGGER 15=SEP-1984 23:38: AX/VMS Macro v04-00 Page 13 D 
PEt 000 SLASH = OPEN CELL Hans ot 4 9 83:08:35 DELTA. SRCIXDELTA.MAR; 1 ve WD vo 
A j .SBTTL SLASH = OPEN CELL 
e A 4 « 
A 5: OPEN SPECIFIED CELL 
LOA 5 bauore : DISPLAY IN ASCII 
Bh 02 88 BOA : BISB =. #<1@V_ASCI1>, (R10) + SET ASCII FLAG 
D BRB OPEN : 
SOF ? SLASH 
6A 3002 er AA 060F ; BICW  #<1@V_ASCII>!<1aV_INSTR>,(R10) ; CLEAR ASCII DISPLAY MODE 
6A F AA 0614 OPEN: BICW <1aV" INSTR>, (R103 $ CLEAR INSTRUCTION FLAG | 
aE 10 519 rs BSBB ENDE LELD : TERMINATE FIELD 
06 6A O08 € 518 5 BBS v_F (R10) 58 : ADDR SPECIFIED? 
68 046 AB 60 b1F 6 MOVL QUAN=B CRI )? CURDOT-B(R115 : NO, GO INDIRECT 
0 1 : BRB 10$ : AND DISPLAY CONTENT 
68 08 D0 06 ; S$ MOVL F1-B(R11),CURDOT-B(R11) : SET NEW DOT 
50 6A 01 oF EF 9 10$: EXTZV. -#V_PRMODE.#1,(R10),RO  ; GET PROCESSOR REGISTER MODE FLAG 
6a 01 OF £0 : : 40 INSV O7#V_PREG,#1, (R10 + AND MOVE TO SEMI-PERMANENT COPY 
008 41 BSBw Coy + OUTPUT AND OPEN 
22 6A «409 «OE1:SsCOOK 4g BBC #V_F2,(R10) ,RSET : RANGE SPECIFIED? 
68 DC AB 01 063A 543 15S:  CMPL  F2=B(R11),CURDOT-B(R11) : CHECK FOR END 
1¢ 15 06 44 BLEG RSET : YES | 
0OAS 30 064 45 BSAW NEXTLOC : INCREMENT TO NEXT DOT | 
#5 11064 46 BRB 15$ : AND CONTINUE 
FFOE 31 43 47 ERR4: BRW ERROR + DECLARE ERROR 
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«SBTTL RETURN = CLOSE CURRENT OPEN CELL 


RETURN = CLOSE CURRENT OPEN CELL 
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ian ; TERMINATE CURRENT FIELD 

#V_OPEN, (R10), 10S skip IF NONE OPEN 

a<Tav_ASCII>!<lav_ Inste>: ch ) ASCII OR INSTRUCTION 

RSET : DISPLAY booe SKIP STORE OPERATION 
V_F1, (R10) RSET ; SKIP IF NOTHING TO STORE 

DEP OS {T ; DEPOSIT 

RESET ; RESET SCANNER 

#V_F1, (R10) RSET : DONE IF NO INPUT 

eat ; OTHERWISE OUTPUT 
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vOs~000 


FFS9 


E 15 


ENDF ELD: 


if 
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BBCC #V_INFIELD,(R10),10$ 
BSBW © ENBEXPR 

; MOVZBL FCTR=-B(R11),RO 
BBSS  RO,1(R10) FARA 

4 MOVL  R7.F1-B(R11)CROJ 

5 INCB ~—s FC FR=B(R11) 

6 CLRQ sR 

i 10$: RSB 


Pa 1§ 
ad (1) 


ZERO IF NULL FIELD 


E PRO sth DEBUGGER 15-SEP-1984 AX/VMS Macro V04-00 
ENDPIELD = - TERM NATE € CURRENT FIELD 328 Epa 1984 $0: a8: 33 DELTA.SRCJXDELTA.MAR; 1 
»SBTTL ENDFIELD = TERMINATE CURRENT FIELD 
COMMA TERMINATE CURRENT FIELD 
 tonma BSBW INFLD ; 
ri TERMINATE CURRENT FIELD 
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TA = MULTIMODE PROCESS DEBUGGER 15=SEP=1984 23:38: AX/VMS Macro V04-00 Page 1 
¥6%~000 FETCH = OBTAIN DATA SPECIFIED e=§ oat 7 83:08:35 YOEL TA, SRe XDELTA.MAR; 1 ° (fy, 
; .SBTTL FETCH = OBTAIN DATA SPECIFIED 
" 4 3 
é 4 3 FETCH SPECIFIED DATA 
684 595 FETCH : 
22 6A «(1F) «CEO 068459 BBS #V_PREG, (R10) ,40$ : BR IF PROCESSOR REGISTER 
: 8 9 WF DF >SwW_PROCESS ; 
FO AB 05 38 TSTL Pib-BTRI1) + CHECK FOR PROCESS GET 
2a 588 399 BNEG 50$ : BR IF YES 
58D é : CASE eben /TYPE=B, <=" : OPERATE ON TYPE 
68D ; BYTE 
68D 6 $08; 3; WORD 
58D : 4 ; LONG 
04 AB «sO BB 9A 98 6 : 108: MOVZBL 3CURDOT-B(R11) ,QUAN-BCRIT) a GET BYTE 
04 AB O00 8B 5 $9 6 : 20S: ROVZWL @CURDOT-B(R11), sQUAN-B (RTT) aa GET WORD 
04 AB «sO BB 06 BAG «6610 308: += MOVL. «=—s @CURDOT-B(R11), QUAN-B(R11) : GET LONGWORD 
05 06A9 611 RSB ; RETURN 
6AA 61g IF NDF ,SW_PROCESS 
OGAA 613 40S: REPR CURDOTZBCRIT) QuAN-B(R115 : GET PROCESSOR REGISTER 
U : 
BAA 6615 w1FF : FALSE IF PROCESS VERSION 
D6AA 918 40S: : 
- 6AA 61 SCHKRNL_S B*FTCHPREG, (AP) : CALL IN KERNEL MODE TO FETCH 
0D41 $3 gis 50$:  BRW FETCHP : FETCH FROM FOREIGN PROCESS 
068A é 0 ENDC 
16BA 6 é LIF DF ,SW_PROCESS F 
06BA 623 FICHPREG: ; 
0090 D6BA 624 “WOR ; ENTRY MASK 
6D OFBI"CF 9E O06B8C 625 MOVAB W*PREXC, (FP) SET "EXCEPTION HANDLER 
06 N6C1 6 6 MFPR CURDOT-B( R11) ,QUAN-B(R115 GET PROCESSOR REGISTER 
5 1 »D 6 MOVL  #1,R0 ; RETURN SUCCESS 
04 6 : RET ; 
6 
06(9 630 -ENDC ; 


POs i a aaa TS 5 maps lpg ae | 
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¢ 6 j -SBTTL WEXTDOT = INCREMENT CURRENT LOCATION 
C ; 
¢ ¢ ; INCREMENT TO NEXT LOCATION 
¢ $ NEXTDOT: ; 
10 ga op E ¢ 8 BBS #V_INSTR, (R10), 208 + BRANCH IF INSTRUCTION MODE 
1 fa. ¢ MOVL #1°R1 : ASSUME UNIT INCREMENT 
Re eine TE EEN RTF increne 
51 51 FE AB 9 D 46 ROTL CURTYPE-B(R11),R1,R1 + FORM INCREMENT 
6B OSS f 9 : 108: ADDL R1,CURDOT-B(R11) ; AND ADD TO DO” 
68 F464 AB 0 60D 645 208: ADDL  INSLEN-B(R11),CURDOT-B(R11) ; SKIP OVER PREVIOUS INSTRUCTION 
E> 823 otpe 
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; UNABLE TO DECODE INSTRUCTION (ACCVIO OR NEW INSTRUCTION). OUTPUT LONGWORD 


| 
OUTINS = OUTPU RUC DELTA. SRCIJXDELTA.MAR; 1 )| 
: | 
4 j «SBTT% OUTINS = OUTPUT INSTRUCTION 
4 : 3 OUTPUT RANGE OF INSTRUCTIONS 
00 09 20 20 f § SPACES: .ASCIZ ' y : 2 SPACES AND A TAB 
, .WEAK LIBSINS_DECODE : INSTRUCTION DECODE IS OPTIONAL 
50 00000000'GF 5 7 OUTINS: MOVAB GoLIBSINS_ DECODE,RO : GET ADORESS OF INSTRUCTION DECODER 
7 12 07 9 BNEQ $ : BRANCH IF LINKED WITH DECODER 
eased Sa ce a a 
SE 0000052 Br u 7 32 5$ SUBL rit 9500 sP $ ALLOCATE SPACE FOR INSTRUCTION STREAM 
7 95 3 AND DECODE OUTPUT BUFFER 
F8 AB f D0 0739 96 MOVL SP, INSBUF-B(R11) ; SAVE ADDRESS FOR OUTPUT_ADDRESS 
34 D0 07 9 MOVL 4#32/4,R4 : SET ITERATION COUNT 
5 ; 7% 98 MOVL + SET POINTER INTO BUFFER | 
FE AB 074 g MOVE sCURTYPESB(R11) + SET FOR LONGWORD FETCHES 
$8 pp 074 0 PUSHL cUkDO (R11) : SAV VE CURRENT LOCATION COUNTER 
FF 1749 701 °10$: BSBW FET ch. : FETCH LONGWORD 
85 04 AB 00 076 f ; MOVL AN-B(R11), (RS) : STORE INTO INSTRUCTION BUFFER 
68 94 CO 07 ADDL #4, yRooT~BiR11) : SKIP TO NEXT LONGWORD 
F354 «FS «(07 704 SOBGTR $ : PILL IRE BUFFER 
8EDO 07 5 705 POPL CURDOT-B(R11) : RESTORE CURRENT LOCATION | 
DD 07 7 : PUSHL R : ADDRESS OF DECODE OUTPUT BUFFER 
D 0758 7 PUSHL #50 : LENGTH OF DECODE OUTPUT BUFFER 
OD'AF 6OF «(075D)~=CO? : PUSHAB B*OUTPUT_ADDRESS : ADDRESS OF SYMBOLIZE ROUTINE 
04 AE 63F 0760 «(7 PUSHAW 4(SP) : ADDRESS RD TO RECEIVE LENGTH 
; AE 7F 0763 710 PUSHAQ 8(SP) t ADDRESS OF DECODE OUTPUT DESCRIPTOR 
FB AB ODF «0766711 PUSHAL INSBUF-B(R11) $ ADDRESS OF INSTRUCTION STREAM POINTER 
00000000" GE FB 07 7 ; CALLS a sSCLIBSINS. DECODE > DECODE INSTRUCTION INTO BUFFER 
5 7D 07 : 7 MOvG : GET DESCRIPTOR OF STRING 
1A 9 0773 714 BLBC + BRANCH IF ERROR DETECTED 
G44 4 0776 715 CLRB th ERS} ; MAKE INTO ASCIZ STRING 
1 0779 7 : BSBW  OUTZSTRING TPUT ASCIZ STRING 
F6 AB «FB AB OSE: «CG3:s«OO77Ci7 SUBL3 s b NSBUP=BCRI1D, sINSLEN-BCR 1) ; SET LENGTH OF INSTRUCTION 
52 BF 07 7 ‘ 50$: ADDL ScATE STREAM/DECODE BUFFERS 
4 92 AF 07 7 MOVAB #36030 R4 ; : SET ADDRESS OF SPACES 
155 %4 f ; BRW OUTZSTRING : FOLLOW INSTRUCITON WITH SOME SPACE 
14 
f | 
738 | 
58 
i 
538 
7 
734 
, 5 
39 
738 


AMA MAA A INININININININININ) 2 2 3 3 BQO OOOOOO0O 


53 FB D0 07 $0$:  MOVL a NSBUF-B(RI1) R3 ; GET FIRST LONGWORD OF STREAM 
F4 AB 0794 MOVL INSLEN-B(R11) + SET INSTRUCTION LENGTH TO 1 
01 : 0798 BSBu out LONG + OUTPUT AS LONGWORD 
t 1 798 8ka 
p a4 
d790 t OUTPUT AN OPERAND WHICH IS A RELATIVE OR ABSOLUTE ADDRESS | 
0790 . | 
0790 OUTPUT_ADDRESS: 
081¢ 290 .WORD “M<R2,R3,R4,R11> 
‘ 
53 DO 079F MOVL (AP) ,R3 : GET VALUE (ARGUMENT BY REFERENCE) 
DO O7A MOVL (AP) ,R2 : GET ADDRESS OF DESCRIPTOR 
19 1 Be £8 O7A BLBS al6(AP),5$ : BRANCH IF ABSOLUTE ADDRESS | 
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TA = MULTIMODE PROCESS DEBUGGER ‘” 1$=SEP=1 :38: AX/VMS Macro v04-00 Pa 
964-000 DETERMINE EL osess RELOCATION REGISTER ans t 71 $3:08;35 YOELYA’SRe XDELTA.MAR; 1 = 
~SBTTL DETERMINE CLOSEST RELOCATION REGISTER 
§ ; RELOC = GIVEN AN ADDRESS, RETURN CLOSEST RELOCATION REGISTER, IF ANY. 
: INPUTS: 
; R1 = ADDRESS 
92 : OUTPUTS: 
1 32 : x} = EFFECTIVE ADDRESS 
1 39 : R3 = REGISTER # 
1 5 3 R4 = OFFSET FROM X REGISTER 
1€ 797: PSL CONDITION CODES SET ON R3 
IE 198 ; R2 DESTROYED. 
3 ps6 081 9 RELOC: CLRL 3 : START WITH XO 
$2 a: @ MNEGL #1,R2 : X REGISTER CLOSEST TO ADDRESS 
4 : MOVZWL R2,R4 + CLOSEST SO FAR IS FFF 
50 FBE2 cF43 OD 6 10$ MOVL XREGVERS],RO : GET X REGISTER 
18 «OW rd 4 BEQL 15 + BRANCH IF NOT VALID 
50 (51 2 C 5 SUBL3 R0,R1,RO : GET OFFSET FROM X# 
00000800 8F 50 91 6 CMPL RO #°x800 : WITHIN REASONABLE RANGE? 
08 3 BGequ 15% t BRANCH IF OK 
54 D 08 CMPL = RO, RG $ CLOSER THAN CLOSEST SO FAR? 
06 1A : 9 BGTRU 15% t BRANCH IF NOT 
52 D 49 10 MOVL R3,R2 : SAVE X# CLOSEST TO ADDRESS 
4 50 dO 084 11 MOVL RO.R4 : AND SET NEW CLOSEST OFFSET 
pc 33 08 F 46 1 15$ AOBLSS @# -R3,108 + LOOP UNTIL LAST REGISTER TESTED 
5 v0 0 4A 13 MOVL R2.R : RETURN X# CLOSEST TO ADDRESS 
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m 15 
= MULTIMODE PROCESS DEBUGGER 15*SEP=1984 23:38:31 VAX/VMS Macro v0é- P 
TDU TAT BUTPUT RODRESe Bere 188e Baiobs as FARCYRS Regro vOK~00. _ 
52 1¢ «0 73 cians MOVL  #28,R2 : SET DIGIT SELECTOR 
54 O08 9 re " MOVAB OyTBUF (R11) ,R6 : GET ADDRESS OF OUTPUT BUFFER 
53 04CSS t' 10$:  EXTZ2V -R2,#4,R3,R1 : GET DIGI 
ac eat : Rove Pe lnatvEhtscnere 5 eT DIGIT 
a | 8 BGEG ~=s«d108 : DO ALL REQUESTED 
64 94 0 CLRB ss (R4) : MARK END OF BUFFER 
54 08 AB 9E OUTZBUF:MOVAB OUTBUF-B(R11) ,R4 : GET START OF BUFFER 
g OUTZSTRING: : OUTPUT ASCIZ STRING 
rn IF NDF, SW_PROCESS 
; Boze. (ness RO : oh IF GONE 
8 BSBB OUTCHAR + OUTPUT CHAR 
8 BRB OUTZSTRING > CONTINUE 
108 RSB : RETURN IF DONE 


Save a register. 

Locate the terminating zero. 

Compute the number of bytes to write. 
Branch if zero bytes to write. 

Write whole buffer. 


9 RS 
9 LOCC. #0, #256, (R4) 
9 SUBL3 R4, RI, R 
94 Bea. 90% 
98 50$: $010w.SE 
9 
9 
9 


_S EFN=#30,- 

CHAN=TTCHAN, = 
FUNC=#108_WRITEVBLK,~ 
P1i=(R4),- 


P2=R5 
0124 BF 5 81 00 CMPW 6 #SS$_INSFMEM gs 3 any resource error occurs, 
1 13 901 BEQL 608 3 wait for an 1/0 completion 
1C 5 Bt 3 § bear RO, #SS$_EXQUOTA 3 and try again. 
2A00 8F 55 9 4 : br eeu RO, @SS$_EXQUOTASTRT 
2AFF 8F 36 AH $06 a OR #SSS_EXOUOTAEND 
908 608: SUAITER_§ EFN=#30 
3 11 90 BRB $ 
ea aiy 90$: 4 R ; Restore saved register. 
31g eENDC 
Ht 
915 OUTBSLSH: 3; OUTPUT BACK SLASH 
50 5C 8F 9A 318 MOVZBL #BSLSH,RO 3: SET CHARACTER CODE 
; 11 1 TCHAR ; AND OUTPUT IT 
50 GA 918 OUTR8: MOVZBL R8,RO 3; GET CHAR TO ay 
919 OUTCHAR: 3; OUTPUT CHAR INR 
9 If NDF ,SW_PROCESS 3 
921 TSTL AP ; CHECK FOR CONSOLE 
9 ¢ BNEQ 10$ 3 NO, USE DEVICE DIRECTLY 
3 ; JMP G*CONSPUTCHAR : OUfPUT TO THE CONSOLE TERMINAL 
5 10$: MOVW CUTER Cae) oft 3; GET STATUS 
§ BBC #7,R1,108 : WAIT FOR READY 
mOVB = RO, OU TB (AP) : OUTPUT CHAR 
4 § LFF : ait FOR PROCESS VERSION 
50 oD PUSHL RO ; BUFFER CHARACTER ON STACK 


<o 


Po 
i 


V 


DELTA 
-000 


50 


0124 8F 

1¢ 
2A00 8F 
2AFF BF 


50 
50 
50 


5E 


SOrvomMmowo 
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@—- -9-9-o-o 
> PS www 


OCESS DEBUGGER 

UT ADDRESS 

0 50$: MOVL _ SP,RO 
$Q10w_S EFN=#30,- 

§ CHAN=TTCHAN, = 

FUNC=#10S_WRITEVBLK,~ 

i P1=(R0),- 

§ P2=81 

5 CMPW = sO, @SSS_INSFMEM 
BEQL 

g CMPW =: RO, @SS$_EXQUOTA 
BEQL 

9 CMPW = RO, #SS$_EXQUOTASTRT 
BLSSU 

; CMPW = RO, @SS$_EXQUOTAEND 
BGTRY 

s 60S: SUAITFR. EFN=#30 

: 90$: POPR #*M<RO> 
.ENDC 

8 RSB 

OUTSPACE: 

0 MOVZBL #32,R0 

1 R OUTCHAR 

; CRLF: MOVZBL #CR,RO 
BSBB s OUTCHAR 

4 MOVZBL @#LF,R 

3 BRB OUTCHAR 
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AX/VMS Macro v04-00 
DELTA.SRCJXDELTA.MAR; 1 


SAVE POINTER TO IT 


BUFFER ADDRESS 


; ONE CHARACTER 
3; if any resource error occurs, 


wait for an 1/0 completion 
and try again. 


RESTORE CHARACTER 
AND RETURN 
SET CODE FOR SPACE 
my SEND IT 
Ss 


END IT 
LINE FEED 
SEND IT 
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TA = MULTIMODE PROCESS DEBUGGER 15-SEP-1984 23:38:31 VAX/VMS Macro v04-00 Page 25 
‘6t-do0 GET: T put CHARACTER ROUTINE aes et 83:08:35 DELTA. SRCIXDELTA.MAR; 1 - hh 
| -SBTTL GETCHAR = GET INPUT CHARACTER ROUTINE 

§ 3 GETCHAR = GET INPUT CHARACTER 
64 ; OUTPUT: 
65; Rg - INPUT CHARACTER 
66 3 R9 = BUFFER POINTER UPDATED (BUFFER IN ASCIZ FORMAT) 
see 
: GETCHAR: : 
58 89 OA MOVZBL (R9)+,R8 : GET NEXT CHARACTER 
1 13 , BEGL 10$ : READ IF NONE AVAIL 
59 84 AB 9 3 10$:  MOVAB  INBUF-B(R11),R9 : SET ADDRESS OF INPUT BUFFER 
374 IF NDF ,SW_PROCESS : 
979 20$: iste AP + CHECK FOR CONSOLE 
37§ JS8 G*CONSGETCHAR : GET A CHARACTER FROM THE CONSOLE TERMINAL 
978 MOVB = RO, RB : 
97 BRB 6 : CONTINUE IN COMMON 
980 308: MOVW ROCRCAP) RO : GET STATUS 
981 40$: BBC #7,R0, 308 + WAIT FOR READY 
9 g MOVB RDBUF(AP),RB + GET CHARACTER 
98 BRB 60$ : MERGE WITH COMMON 
384 FF : FALSE IF PROCESS VERSION 
50 FABA CF DE 985 15$: MOVAL ES 3; get the relocateable address 
986 $Q10W_S EFN=#31,- : 
98 CHAN=TTCHAN, = : INPUT DEVICE CHANNEL 
988 10SB=TTIOSB,- + 10 STATUS BLOCK 
FUNC=#<10$_READVBLK! 1OSM_EXTEND>,- : 
P1=(R9),= 7 BUFFER ADDRESS 
P2=#80,- : READ SIZE 
P5=RO,- 
pésatt TMLSTLEN 
01246 8F 50 861 CMPW RO, #SS$_INSFMEM 3 if ony resource error occurs, 
1 eR BEQL 766 3: wait for an 1/0 completion 
1c 650)—séa CMPW =: RO. #SS$_EXQUOTA : and try again. 
0 13 Bea. 46-76 
200 8F g1 CMPW RO #SS$_EXQUOTASTRT 
1 1F BLssu 796 
2are BF 4650s 1 CPW RO #SS$_EXQUOTAEND 
0B 1A 1 ectru 796 
1 760$: SUAITFR.§ EFN=#31 
AF 11 i nes RB 5$ 
50 FASS CF 3° 1 MOVZWL TTIOSB+2,R0 : GET SIZE READ 
8049 FA52 CF 1 MOVB 1110 B+4, (RO) +(R9J : BUFFER TERMINATOR 
6940 94 1 CLRB 3s (RR) CROJ + MARK END OF BUFFER 
52 po 1 MOVL R9,R : POINT TO START OF STRING 
A 1009 20$: MOVZBL (RE)+ RB : GET A CHARACTER 
13 BEQL 15 : EMPTY, READ SOME MORE 
8 80 ef BA 1012 60$:  BICB #*x80.R8 + STRIP PARITY 
F 8F 38 71 CAPR RB, #RUBOUT ; CHECK FOR RUBOUT 
03 6A 06 ig 1 BBSS  #V_RUB,(R10),70$ > SET START OF RUBOUT SEQUENCE 
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C 16 
LTA = MULTIMODE PROCESS DEBUGG 15=SEP-1984 AX/VMS Macro v04-00 Page 26 
76% 000 GETCHAR = GET TapuT art ttare ROUTINE 3 Fb= 1986 88; 38: i} DELTA. SRCJXDELTA.MAR; 1 ve a) 
FFI 0 OAIA 101 BSBw SLSH ; pur BACK ASH 
58 § a, Al 13 70$: ROVZBL = ba ft Sat ; eT RUBBED out tn 
5 06 Ace 1 i$ INCL A : POINT AT START OF BUFFER 
Fi Ao 1 BRB 208 + AND Ger ANOTHER 
FFI6 A § 1001 80$: BSBwW QUTRE + OUTPU RUBBED OUT CHAR 
¢ Aco BRB $ : AND GET ANOTHER 
03 6A 5 ACB 1 BBCC #V_RUB,(R10),100$ + TERMINATE RUBOUT SEQUENCE 
FF ACF 1 = BSBW TBSLSH + OUTPUT BACK SLASH 
03 58 fl A32 1025 100$: BBC #6,RB8,1108 : BR IF NOT ALPHA 
A361 : Bite 40 #32, RB + SET TO OPPER CASE 
A39 «1007 1108: : 
A391 : IF NDF SW _PROCESS ; 
A391 BSBu = s«OUTR + ECHO CHARACTER 
A39 61030 eENDC 3 
89 5 90 A39 1031 MOVB = RB, (R9)+ + BUFFER NEW CHAR 
FAFO CF OA A OAsC 1 : LOCC = RB. ANTERM, TERM : CHECK FOR TERMINATOR 
C3 «13 «OA42 1 BEQL «6s 2008 : NOT A TERMINATOR 
58 9 91 0A44 19 4 CMPB wc RB : IS CHAR = RETURN 
1 AS? 1035 BNEQ 1208 ; NO 
FF45 3 OA49 10 6 BSBW ; ves. SEND CR/LF 
69 94 OASC 19 120$: CLRB  (R9) : MARK END OF BUFFER 
59 86 AB 9E OAs 1038 MOVAB INBUF-B(R11),R9 : RESTORE BUFFER BASE 
FF46 31 «OAS2 1039 BRW GETCHAR : AND TRY AGAI 
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TA = MULTIMODE PROCESS DEBUGGER 15-SEP-1984 23:38: AX/VMS Macro v04-00 
14 PLU tains OPERATORS e=§ sett y 83:08:35 EDELYA SRE XDELTA.MAR; 1 
A i} .SBTTL PLUS/MINUS OPERATORS 
A 43 ; PLUS/MINUS OPERATORS 
AS55 61065 BLANK: : SAME AS PLUS 
ass 1 4g OPERATOR: ; 
F883 a55 (104 BSBW = ENDEXPR : END EXPR 
fF AB 50 A 8 4g SuBBS #OPERBAS RO,OPER-B(R11) ; SET OPERATOR 
ASE 1 : y 
n f : MONADIC MINUS = NEGATE 
56 % Ad : NEGATE: Ist R ; TEST ACCUMULATOR 
rave A62 1055 BSBW  ENDEXPR > OTHERWISE PERF ORM OPERATION 
6A 80 BF ¢ aos 1 6 5$: XORB  #<18V_NEGATE>, (R10) : TOGGLE NEGA TE FLAG 
A69 1057 108: = RSB : AND RETU 
aa 8 


re i 
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= MULTIMODE PROCESS DEBUGGER 15-SEP-1984 23:38: AX/VMS Macro v04-00 Page 28 
TAB = INDIRECT siseuk a= SE = 1382 $308: 35 DELTA. SRCIXDELTA.MAR; 1 was f 
A A : .SBTTL TAB = INDIRECT DISPLAY 
AGA 1862 _ 
68 04 AB 00 OA6A 1 63 fas: movi QUAN-B(R11) CURD T-BcR11) GO INDIRECT 
50 6A 1 OF EF Ag 1 § EXTZV ay. PRMODE , #1, ( RO GET PROCESSOR REGISTER MODE 
6A «(O01”sé*dT# 9 FO A731 6 INSV -#V_PREG, af aR R105 t AND COPY TO SEMI-PERMANENT FLAG 

13° «11 «OA7B 1 8 BRB Rote : AND DISPLAY IT 
A7A 1 6 
A7A 1070; 

7A 1071: ESCAPE = DISPLAY PREVIOUS LOCATION 
A7A 1072; 
A7A 107 
ATA 1074 ESCAP: F 
OF 6A 0D €0 OA7A 1075 BS #V_INSTR, (R10) ,LOCP : BRANCH IF INSTRUCTION MODE 

01 OD ave 1 r% MOVL #17R1 t ASSUME UNIT INCREMENT 

6A 05 OAB1 107 TSTL = (RIO) : check FOR PROCESSOR REGISTER 

05 19 OA : 1 28 BLSS 108 : YES, USE UNIT INCREMENT 

51 51 FE AB 96 ABS 107 ROTL CURTYPE-B(R11).R1,R1 =: FORM INCREMENT 
68 CS ¢ ABA 1080 10$:  SUBL  R1,CURDOT-B(R11) + AND SUBTRACT FROM DOT 
FCSA = 31«C«OABD «1081 LOCP: BRwW LOCPROMPT : PROMPT WITH CONTENT 
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«SBTTL DISPLAY INSTRUCTION RANGE 
"1" = DISPLAY RANGE OF INSTRUCTIONS 


BSBW = ENDF IELD 
BICB © #1a@V_ASCI1. (R10) : CLEAR CHA 
BRS av_FT,¢ ,5$ - A 
MOVE ‘en »°CURDOT-B(R115 ; 
MOVL  F1-B8(R11) CURDOT=-B(R11) 31 
BISW #laVv_INSTR, (R10) : § 
BSBW TIA 3: D 
BBC #V_F2, (R10), 30 31 
CMPL £F2>B(R11),CURDOT-B(R11) : E 
BLEG ; 8 
BSBW aa g 

EPR 208 gh 
BRB RESET :R 
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oc 


NOW 


SELECTION 


"Ecgeb= 


LEFT BRACKET 


MODES: 
ASCII 
ASCII 
ASCII 
ASCII 
ASCII 
NMODES=.-MODES 
$ LBRACKET: 
Y BSB 
LOCC 
§ BEQL 
CMPL 
4 BEQL 
5 BGTR 
§ $uBB3 
BICW 
5$: BICB 
RSB 
0 10$: B1SB 
1 BICW 
RSB 
20S: BISW 
BRB 


GETCHAR 
RB, ANMODES ,MODES 
i, 

6 

208 


RO, CURTYPE-B(R11) 


i 
#lev INSTR (R10) 
a) 


#<1aV_ASCII>, (R10) 


#av_INSTR, (R10) 
#av_INSTR, (R10) 
5$ 


ASCII>, (R10) 


1986 65:08:35 EOE(YASsmeSnbeltA.man: 1 


«SBTTL LEFT BRACKET = MODE SELECTION 


E CHARACTER LIST 

INSTRUCTION MODE, VARIABLE LENGTH 
CHARACTER, CURRENT LENGTH 

LONG, HEX 

8 


* HEX 
NUMBER OF MODE CHARACTERS 
MODE SELECTION 

MODE CHAR 


GET 
CONVERT TO INDEX 
NOT RROR 


ET MODE 
CLEAR INSTRUCTION DISPLAY MODE 
— DISPLAY MODE 


SET CHARACTER DISPLAY MODE 
CLEAR CHARACTER DISPLAY MODE 


SET INSTRUCTION DISPLAY MODE 


me Ri, 


4 


is 


1 
1 
1 
1 
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-SBTTL SINGLE STEP 


AX/VMAS Macro v04-00 2 3 
DELTA SRE INDEL SALRAR: 1 oe 7, 


STEP 
INSV =: #1, #V_TBIT,#2, (R10 CLR V ATBRK, SET V TBIT 
Bict #<<1a0_PRMODE>!<lav V_PREGS> ney ; CLEAR PROCESSOR REGISTER ™ 


rtoagso BF 
: 


F8 


. 
00000000 ' GF 


8 
py) 


E 

Ped 05 
15 5 
04 A 
ost 


‘1 
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08 
F9C1 
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K 16 
PROCESS DEBUGGER 15-SEP-1984 23:38: AX/VMS Macro V04-00 P 34 
= STEP OVER ROUTINE CALL arSEe SBS Baiaasas FORLYRS agro vOe~00 th 
1 4 «SBTTL STEPOVER = STEP OVER ROUTINE CALL 
i $: ; STEPOVER 
11 4 STEPOVER: 
1 MOVZBL asa PC=B(R11) RO : GET NEXT INSTRUCTION, TO EXECUTE 
1 2 BICL <lav V ePRAQDES! <1aV_PREG>>, (R10) LEAR PROCESSOR REGISTER M 
1 MOVAB OVEROPCOD RY ADDRESS OF LIST OF OPCODES 
1 g MOVZBL #OVEROPCL EN NUR SIZE OF TABLE 
1203 10$:  CMPB  RO,(R1)¢4 MATCH? 
1204 BEQL BRANCH IF F OUND 
1205 SOBGTR 10$ LOOP UN IL FOUND 
1 6 BRB IF A ROUTINE CALL, NORMAL STEP 
1207 20$: MOV “L IBSINS_DECODE .R2 GET ADDRESS OF FOLLOWING INSTRUCTION 
1 8 BEQL If NOT AVAILABLE, ERROR 
1 PUSH: SAVPC-B(R11) COPY ADDRESS OF Inst RUCTION STREAM 
1 19 PUSHL #0 PUSH NULL DESCRIPTOR 
121 PUSHL $? ADDRESS OF OUTPUT DESCRIPTOR 
1 i PUSHAL &8(SP) ACCESS INSTRUCTION STREAM DIRECTL 
121 CALLS #2, (R2) IND ADDRESS OF FOL LOWING INSTRUCTION 
1214 BLBC ‘ F NOT INTERPRETABLE, E 
1215 wIF DF ,SW_PROCESS : 
1 1 mMOVL 4 §P) TRS : Get ADDRESS OF NEXT INSTRUCTION 
121 MOVL : MAKE END=START 
' 18 BSBu SETWRT > MAKE INSTRUCTION WRITABLE 
1220 POPR #*M<RO,R1> : Ger UPDATED STREA POINTER 
1201 MOVB = (R1),, (R1) : ERROR IF LE 10 WRITE BREAKPOINT 
1 : MOVL  R1, 0VRADR : SET TEMPORARY BREAKPOINT 
; RET : START EXECUTION 
1225 358: ADDL 4#8,SP : CLEAN STACK 
1226 30$:  BRW ERROR + REPORT ERROR - UNABLE TO STEP OVER 


FFF3 52 01 

52. DC AB 
A 
52 : 

F809 CF4 

F824 +r 
50 D8 AB 
16 


OC 6A 
F7DD CF42 «EO hy 
EO 8B 


07 6A_ 0B 
F7ED CF42 E46 
F79A CF42 , 50 


55 01 
58 F78F CF45 
38 
FD 
FC 
FD7 
ce 
FD6 
53 F79F CF4S 
£98 
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woomo-om 


WTA WAMWIWS 9 9 
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R 
DF ,SW_ PROCESS 
#*M<RO,R1,R2,R3,R4,R5> 


POPR 
.ENDC 
35$: BC #V_F3, (R10) ,40$ 
MOVL F 3=B(R11) ,BRKDSPLR2) 
6 BEQL 


a a a a kk ek kk td td td 2 
ANNO 


6 TSTL af 3-B(R11) 
64 40$: BBC #V_F4, (RIC) ,45$ 
65 MOVL €4=B(R11) ,BRKCOMCR2) 
66 45$ MOVL RO, BRKADRERZ] 
6 BRW RESET 
$8 3 
: SHOBRK 

Mt SHOBRK 

j MOVL #1,R5 

73 10$:  MOVL BRKADRLRS],RB 

4 BEQL $ 

75 MOVL =_ RS, RB 

7 BSBU sé 

7 BSBW © OUTDIGIT 

7 BSBW TSPACE 

7 MOVL = RB, RB 

9 BSBU OUTLONG 

BSBW QUT SPACE 
j MOVL RKDSPCRS).R3 
BEQL 
4 BSBW OUTLONG 


RESTORE PROTECTION 
AND REGISTERS 


DISPLAY SPECIF 
SET DISPLAY ST 
ST IF 


ABILIT 
SKIP IF NO COMMAND ADDRESS 
SET COMMAND STRING 


RESET SCANNER AND RET 


? 


PROCESS DEBUGGER 15-SEP-1984 23:38: AX/VMS Macro v04-00 Page 35 
ET/CLEAR BREAKPOINTS ae aan 83:08:35 DELTA. SRCIJXDELTA.MAR; 1 ef wD 
-SBTTL BRKPOINT = SET/CLEAR BREAKPOINTS 
: BRKPOINT 
BRKPOINT: : 
BBC #V_F1,(R1 }« SHOBRK + DISPLAY BREAKPOINTS 
BBS #V=F2, (R10) ,20 : YES, IT WAS SPECIFIED 
g MOVL #1-R : INIf INDEX 
: 10$:  TSTL RKADRER2] t FIND FREE SLOT 
BEQL 0$ : YES, GOT ONE 
ACBL NBRK ,#1,R2,10$ > CHECK THEM ALL 
38: BRW + ERROR 
$:  MOVL  F2-B(R11),R2 : GET BRKPOINT NUMBER 
4 BEQL ; NULL FIELD, SCAN FOR SLOT 
4¢ CMPL #NBRK,R2 3 CHECK FOR LEGAL 
4 BLSS : OUT OF RANGE 
44 308:  CLRL  BRKDSP R2} + CLEAR DISPLAY 
45 CLRL BRKCOMER + CLEAR COMMAND ADDRESS 
46 MOVL £1-B8(R11),RO : GET BREAKPOINT ADDRESS 
4 BEQL 3 ALLOW CLEAR OF BREAKPOINT 
48 w IF DF ,SW_ PROCESS : 
4 PUSHR #*M<RO,R1,R2,R3,R4,R5> : SAVE REGISTERS FOR PROTECTION CHANGE 
50 MOVL RO,R4 : SET START ADDRESS 
51 VL ——RO, RS : AND END ADDRE 
3g BSBW 3s SE TWRT ; SET PAGE WRITABLE 
33 MOVE (SP) ,RO ; RESTORE BPT ADDRESS 
38 VB (RO), (RO) ; TEST WRITABILITY OF ADDRESS 
‘ | 
38 3 
60 3 
61 3 


URN 


EX FOR LOOP 
KPOINT ADDRESS 


ADDRESS OF BPT 
OUTPUT ADDRESS 
SP R 


Vv 
GET DISPLAY START 
OUTPUT DISPLAY START 


M16 
TA - MULTIMODE PROCESS DEBUGGER 15-SEP-1984 23:38: AX/VMS Macro V04-00 Pa 
OF B00 BREPDINT = SET T7Et ERR ge Ye OER ENTS ¢-§ et} y §3;08;34 DELTA. SRCJXDELTA.MAR; 1 #¢, 
53 F784 CF4S5 C 1285 15$: MOVL SPECORERD2, ok3 3; GET COMMAND STRING ADDRESS 
¢ 1 § BEQL 3; NON 
FD C 1 BSBW OUTSPACE 3 SPACE ANOTHER 
FCBA C 1 BSBW OUTLONG 3; AND Ten ke A LONGWORD 
FFC4 55 901 8 cSse 1 208: ACBL @NBRK ,#1,R5,10$ ; oo T ALL 
FD4A = 3331 C44 «ON BRw CRLF 3; AND eeir Fh ROUGH CRLF 


| 
| 


B 1 | 
LTA = MULTIMODE PROCESS DEBUGGER 15=SEP=1984 23:38: AX/VMS Macro V04-00 Page 37 
OF B00 GO SARE ERE POTION AT SORCIFIED LOCATE 'SaSep219¢ G0:08;85 FDECTASSRESRDEN SALMAR: 1 wae | f 
C4? 33 .SBTTL GO = START EXECUTION AT SPECIFIED LOCATION 
a 
05 6A 08 €1 OC47? 1296 G0: BBC #V_F1, (R10) ,PROCED ; JUST PROCEED IF NO VALUE 
54 AB DB AB DO OC4B 1 3 MOVL  F1=B(R11),SAVPC-B(R11) : SET NEW PC 
c 38 : BRW PROCED : FALL INTO PROCEED 
C 0 : PROCEED 
C 1 : PROCED: : 
6A 80008000 BF CA C30 1 BICL #<<1@V_PRMODE>!<1aV_PREG>>, (R10) : CLEAR PROCESSOR REGISTER M 
04 0¢57 1304 RET ; RETURN 


<o 


a 


¢ 1 
DELTA = MULTIMODE PROCESS DEBUGGER 1 =SEB-1984 33:38:31 AX/VMS Macro V04-00 Page 38 
v06-000 SEMI-1, PC VALUE @SEP-1984 00:08:35 (CDELTA.SRCJXDELTA.MAR; 1 (1) | 
C .SBTTL SEMI-1, PC VALUE 
c ; SEMI-1 
9 9 30 0¢58 1 COLON: BSBW  ENDEXPR : TERMINATE EXPRESSION 
FO AB p (SB 1 MOVL  R7,P1D-B(R11) : SET PID FOR PROCESS 
7 CSF 1 CLRO sR : RESET ACCUMULATORS 
0 C61 RSB ; 
51 EC ag DF (62 1315 MFYFLGS:MOVAL MFYFLG-B(R11),R1 : SET MODIFY FLAG ADDRESS 
17 11 0666 1 BRB VAL + SET/GET VALUE 
51 6B DF C68 1317 DOT: MOVAL CURDOT-B(R11),R1 : SET ADDRESS OF DOT 
18 6A «iF =OET.«O0C6B OI BBC #V_PREG, (R10) -VALR : WAS IT PROCESSOR REGISTER? 
14 6A OF Fe C6F 1 BBSS  #VPRMODE,(R10),VALR : YES, SET PROCESSOR REGISTER MODE 
12 ¢ 3 1 BRB VACR : READ VALUE 
51 04 AB. OE Oc? 1321 QUANT: MOVAL QUAN-B(R11),R1 * SET QUANTITY ADDRESS 
0¢ 11 OC79 1 RB VALR + READ VALUE 
bc7e 1 PROGCTR: 3 
5154 ag bE OC7B 1 OVAL SAVPC-B(R11),R1 : SET PC ADDRESS 
04 6A 08 €1 OC7F 1325 VALUE: BBC #V_F1, (R10) ,VALR : SKIP IF NO VALUE 
61 08 AB. DO C83 1 MOVL F1=B(R11),(R1) : SET NEW VALUE FOR PC 
56 O61 v0 (87 1327 VALR: MOVL  (R1),R6 ; AND GET VALUE 
F935 31 OCBA 1328 VALI: BRW INFLO : SET FIELD IN PROGRESS 
OCBD 1329 REGISTER: : 
55 18 AB DE OCB8D 1 MOVAL SAVREG-B(R11),R5 + SET BASE OF REGISTER AREA 
02 10 0C91 1 BSBB. REGCOM : FETCH ADDRESS 
Bai 0c93 1 BRB VALI : AND USE IT 
FD03 30 C95 1333 REGCOM: BSBW GETCHAR : GET SECOND CHAR 
F87B CF «OC 10'—s«CSBC«SAsCEBS LOCC  R8,416,PRIMARY : TRANSLATE TO HEX 
OC9E 1 TIF DF .SW_PROCESS : FOR PROCESS VERSION 
21 12 OcoE 1 BNEQ 10 : LEGAL HEX DIGIT 
FE AD «4958 BF SOB) «COLAO 1 CMPW 30 #*A/X1/,-2(R9) : CHECK FOR EXIT COMMAND 
40 12 OCA6 1 BNEQ ERR : NO, ERROR 
60 AB ODS «(OCAB C TSTL ASTEN-B(R11) : WERE ASTS ENABLED ON DELTA ENTRY? 
09 13 OCAB 1 BEQL 46s + IF EQL NO, DON'T REENABLE THEM HERE 
OCAD 1 SSETAST_S " : YES, UNDO AST DISABLE BY DELTA 
acct 5$ SEXIT.S EXITCODE > EXIf 
ctl 1 BEQL  ERR3 : ERROR, NOT HEX 
cc1 1 .ENDC : 
(C1 1346 10S: : 
50 10 SO c3 OCC1 1 SUBL3 RO, #16,RO > INVERT 
56 6540 DE ccs 1 MOVAL (R5)CROJ,R6 + ACCUMULATE 
0 cc RSB : RETURN 
1A 6A 09 «©€1: «OCCA. «1351 XSET: BBC #V_F2, (R10) ,ERR3 : ERROR IF NOT TWO FIELDS 
51 DC AB 04 00 €F OCCE 1 EXTZV #0784. F2-B(R11),R1 : GET REGISTER NUMBER 
51 £736 CF41 DE OCDS 1 MOVAL xREeGVERI),R1 : AND COMPUTE REGISTER ADDRESS 
As 11«OCDA ss BRB VALUE + PROCESS VALUE 
CDC 1355 XREG: + M-REGISTER VALUE 
55 F72D CF 3 coc 1 MOVAL XREGV,RS : SET ADDRESS OF REGISTER VECTOR 
B82 10 OCE1 1 BSBB_ sa REGCOM : ADDRESS TO R6 
56 66 DO OCE3 1 MOVL (R6),R6 : GET VALUE 
A211 OCES 1 R VAL : AND NOTE INPUT IN FIELD 
ces 1 SALIGN LONG : LONGWORD ALIGN EXCEPTION ROUTINES 
CE8 1361 XDELACV: > ACCESS VIOLATION HANDLER 
CE 1 MCHK: : MACHINE CHECK 


vOs~000 


F 868 


SEM 


31 


Sz 
=< 


MODE proses DEBUGGER 
PC VALUE 


If NDF ,SW_PROCESS 
TSTL AP 
BNEQ ERRS 


LTI 

“I, PC VAL 

cee 82 
fER 1863 
ces 1 66 
CEB 136 
ces 1 8 CPUDISP < iiae .780>,° 
CEB 1 6 SO -cLR R-750>,- 
CEB 1370 +CLR-730>,- 
CEB 1371 £790; CLRo? >= 
cE 1 a CLR_UV1>>,=- 
CEB 137 env iRonenBet ta. 
CEB 137% 
CE8 1375 CLR_780: 
CEB 1 A: MFPR = #PRS SBIFs -(SP) 
CE8 137 BBCC #29 TSP) ,16$ 

OCE8 1378 108:  MTPR SP)e sEPks. SBIFS 
CE8 1379 BRB PR “END 

CE8 1380 

CEB 1381 CLR_uyi 

OCEs 1 Q CLR 30 

OCE8 1383 CLR7750 

OcE 1384 MTPR  #*XF ,#PRS_MCESR 
CEB 1385 BRB CLR_END 

OcE 1 8 CLR_790: 
CEB 1 8 MFPR = #PRS$_EHSR,-(SP) 

OCE8 1388 BBCC #6,(SP),10 

OCE8 1389 10$ MTPR (SP) +, #PR$ _EHSR 

OCE8 1390 JSB S¥SUSCERSBTA 

OCE8 1391 

OCE8 1 36 CLR_END 

OCEB 139 

OCEB 139% 

ces 1395 .ENDC 

OCEB 1 3 10$: 

OCE8 1397 ERR3: BRW ERROR 

OCEB 1398 


15-SEP-19 
“SEP-19 


Be 60:08:35 


AX/VMS Macro v04-00 Page 39 
DELTA.SRCJXDELTA.MAR; 1 (1) 
CHECK FOR SIMULATOR 
YES, SKIP RESET 


S 
ST PASS BIT 
LT 


nm ns MOOa" 


LEAR MCHECK ERROR SUMMARY 


GET ERR HANDLING stars REGISTER 
Lee My ENTERED ett 

WRITE BACK TO CLEAR 

CLEAR SBIA ERROR BITS 


*END OF CPU-DEPENDENT CODE* 


AND DECLARE ERROR 


DELTA 
v04-000 


ViVi PP FO 
FOS O0—-"a—-oO 


- MULTIM PROCESS D GER SEP-19 :38: AX/VMS Macro v04-00 Page 40 
RECISTER SAVE ore ses fone ees et 7 83:08:34 DELTA. SRCJXDELTA.MAR; 1 (1) 
cee 14 9 .SBTTL REGISTER SAVE AND RESTORE 
14 ; 
EB 14 : ; SAVE = SAVE TARGET REGISTERS, PC, PSL 
cee 1e0 gave 
CEB 14 6 wf NDF. ,SW_PROCESS ; 
CEB 14 SETIPL : DISABLE 
CEB 14 : JSB INISWRITABLE : MAKE THE SYSTEM WRITABLE 
CEB 14 Hove RO, SAVREG + SAVE RO,R1 
CEB 1410 MOVAB SAVR2,R1 + SETUP BASE FOR REMAINING REGS 
CEB 1411 1FF : FALSE IF PROCESS VERSION 
CEB 1416 $SETAST_S #0 ; DISABLE ASTS 
an area meee oat | SRT CONRENT Paton 
ap RMOD ,#PSLSS_ curMo 0D,R1,R1 ; ISOLATE CURRENT MODE 
ER | Bat ate cae AOD RT os er? SOKATE CURRENT MODE, 
9 008 1419 MOVAB SAVREGCRIJ.R + FORM ADDRESS OF REGISTER SAVE 
DO OD0B 141 MOVL (AP) ,RO t GET POINTER TO MECHANISM 
7D OD0C 141 MOVO (ROS, (R1)¢4 + SAVE RO, 
do¢ 14 : Ova 12(RO$, (R1) ; SAVE RO,RI 
7D OD10 1421 MOVO.  —-R2, (R1)4 + SAVE R2,R3 
7D ptf 14 g MOV  R4.(R1)+4 > SAVE R4.R5 
7D OD16 14 MOVQ  R6.(R1)+4 > SAVE R6.R7 
7D $} 14624 MOVQ RB. (R1)+ : SAVE R8.R9 
7D Opie 14625 MOVa = R10, (R1)4 + SAVE R10,R11 
ODIF 14 6 IF NDF .SW_ PROCESS ; 
ODIF 14 mova AP, (RIT+ 3; SAVE AP,FP 
ODIF 1428 MOVAB 12(SP),(R1)+ : ASSUME “iERWEL STACK 
OD1F 14 ; mova 4(SP),(R1)4 ; SAVE PC,PSL 
7 Opie 1431 MOVO B(FP),(R1)4 : SAVE AP 
C3 0023 14 SUBL3 #1,a@4(AP),RO > GET NUMBER OF ARGS IN SIGNAL 
BE Obe8 N45 OVAL gu) ROS Ro i Point To pc.Pst 
5 4 t 14 5 ova (RO), (R1)¢ ; SAVE PC,PSL 
gi TSE ar su process gaye 
4 14 § JSB G*CONSOWNCTY : ALLOCATE THE CONSOLE TERMINAL 
D34 1440 MOVL RO, (Rg) + SAVE CONSOLE TRANSMIT STATUS 
D34 1441 MOVL  R1.(R2)+ : SAVE CONSOLE RECVR STATUS 
D34 144 MOVL R2.R1 : RESTORE R1 
p34 1208 CLRL. AP : ZAP DEVICE ADDRESS BASE 
D34 1444 20$:  MOVAB. B,R11 : AND DATA BASE ADDRESS 
Oe let nove B-<SAVPSL#+4>>(R1) R11" donc roe eT BASE OF CONTEXT AREA 
& W*<B-<SAVPSL+4>> 
3 , 3 re ROVE’ (SP) +, ASTEN-B(R11) > SAVE AST ENABLE 
3D : : 
AB = STATUS-B(R11),R10 : SET STATUS BASE 
3f bat 126 ROVAB IN UF -B(R11) ,R9 : POINT TO INPUT BUFFER 
94 bes 1284 CLRB : MAKE BUFFER EMPTY 
D47 14 IF NOF SW_PROCESS : 
D47 14 : BSBW 1§C : GET BASE OF SCB 
D47 1454 MOVL 4(RO) .MCHKSAV > SAVE ORIGINAL cH o¥ECToR 
D47 1455 MOVAB HK : SET TO XDELTA VECTO 
D4? 1456 MOVAB XDELACV,*X20(RO) : SET ACCESS VT OVATION VECTOR 
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RESTORE: 


RESTORR: 


10$: 


20$: 


SEP=1984 1 X/VMS Macro V04-00 Page 41 
"Ergee 28 4 63: 38; 3! tt DELTA. SRCIXDELTA.MAR; 1 vet) 

KDELACV, 2124((R0) ; SET PG FAULT VECTOR 

DELACV,* SET RESERVED OPERAND HANDLER 

#PSLSV VEURMOD APSLSS. curhod 8(SP) 2 RO, 

; CORRECT ALREADY IF KERNEL 

#PR RO + COMPUTE PROCESSOR REGISTER 
RO eRVeP ce R11) : AND SAVE CORRECT SP 
RESET : RESET SCANNER 


- RESTORE TARGET REGISTERS 


NDF ,SW_P 
SAVEC-B 


( 
AG ety es 
SAVPC-B( 


NDF , SW_PROCESS 
GETSCB™ 


EXESACVIOLAT “X%20(RO) 
MMGSPA EF AU f,*x24(RO) 
MCHESAY ) 
NEPA era 


108 

SAVOCR-B(R11),RO 
SAVRXCS=B(R115,R1 
gre CONSRELEASECTY 


SAVOCR=B(R11) 
SAVRCR=B(R11) 


ASTEN-B(R11) 
Syne-Bintt?, R1 


NN 
DwDwDwDD 
—e a) 


R10 
NOF si PROCESS 
(R1S¢ 
AS RO 
(R1)+, FP) 


8(AP) 
<SAVREG=SAVSP>(R1), 12¢R05 


e+ 4 
> 
. 
DDD 
S at 4 
© Oe Oe Oe Oe Oe Oe Se Oe Se Be Se Se Be Oe eee 


#PSL$V CURMOD «PSL SS_ CURMOD.RI_R 


R1,DBGACTIVE 
(SP)+ 


RESTORE EVERYTHING 


RG COUNT 
COMPUTE ADDRESS OF PC,PSL 


; STORE UPDATED PC,PSL 


RESTORE REGISTERS ONLY 
GET BASE OF SCB 


; pt Sb ACCESS VECTOR 


D_ PAGE FAULT VECTOR 
REST RE MACHINE CHECK VECTOR 
REST ¥ on tines OPERAND VECTOR 
ps “ay R CONSOLE 


NER DEVICE 
RESTORE INITIAL TX STATUS 
AND INITIAL RECEIVER STATE 


MERGE WITH COMMON CODE 


; RESTORE OUTPUT CSR 
; AND INPUT CSR CONTENT 


; SAVE AST ENABLE 
; SET a we RESTORE 


Re Rs 


ais R11 


NTER 
Tone UPDATED RO,R1 


PSL 
GET CURRENT MODE 
mt ® ACTIVE eit FOR MODE 


GET cuhné 


CHECK FOR AST ENABLE 


DELTA 
v04-000 


od TIMOD 
REGIST R SAV 
13 a 
D 
: 
Dd9 
D9 
444 
05 0D9 


"Br eeei18he Bo:obsss EDECYaSsaeaKbEL TA tar; 1 


NO 
S #1 RE= ENABLE AST RECOGNITION 


NDF ,SW_PROCESS 
INI$RDONLY REPROTECT THE SYSTEM CODE 


; AND RETURN 


ete 


7 


DELTA - MU TAMODE PROCESS DEBUGGER 
Vv C 


-000 GET ADDRES 


096 15246 

096 1535 

i) 1 § 3 

096 1 + SUBROUTINE GE 
p : ADDRESS OF TH 
096 1 > INPUTS: 

0 j : ourputs: 

4 1 ¢ i 

096 «1534 : 

096 1535 

D961 $ IF 
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HANDLE BREAKPOINT TRAPS 


BMsG: .ASC1Z._ / BRK AT / 
SALIGN LON 
wIF NDF ,SW_PROCESS 
XDELBPT:: 
J IFF 
XDELBPT: 
ENDC 
BSBW = SAVE 
BSBW GE TBPTX 
TSTL oR 
BNEQ 108 
CMPL leases ,OVRADR 
BEQL 0$ 
BSBW RESTORR 
IF NDF SW_ PROCESS 
MOVZBL 6(SP),=(SP) 
ENBINT 
me EXESBREAK 
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CHECK FOR MATCH 
YES, FOUND IT 
1S fHIScA A TEMPORARY BREAKPOINT? 
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ABLE 
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BSBW 


VL RB, ; 
BSBW sR : 
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MOVAB BMSG,R4 : 
BSBW QUTZSTRING : 
MOVL  SAVPC-B(R11),R3 : 
BSBW QUTLONG : 
MOVL §®BRKDSPCRSJ,R1 : 
BEQL 408% 3 
MOVL = RY CURDOT-B(R11) : 
BICW #1aV_INSTR, (R10) ; 
BSBW =sLOCP inet : 
MOVL BRKCOMCRS),R1 : 
BEQL TP : 
MOVL RI,R : 
MOVL SAVPC-B(R11) curpoT-B (R11) 
IFNORD &#4,@CURDOT-B(R11),GETCMD ; 
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BBS wPsLv. BIT, savest-BcRtt5, -PROCE ED 


MOVE TEMPORARY BREAK 
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; SET STATUS 
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GET ADDRESS TO DISPLAY 
ET AS CURRENT 


dOT 
CLEAR INSTRUCTION DISPLAY MODE 


AND DISPLAY 
GET COMMAND STRING ADDRESS 
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6A 2000 8F A EOC 1 ; BISW = #lav INSTR, (R10) ; SET TO INSTRUCTION DISPLAY MODE 
F806 «= 330-s«*OETT 1 BSBW LOCPROMP + PROMPT WITH ADDRESS/INSTRUCTION 
E14 1604 GETCMD: ; GET COMMANDS 
F734 CF 4 46C) OFA «(OE14 «(1605 CALLG (AP),0COM ; PERFORM DEBUG COMMANDS 
E19 16 6 PROCEED: ; PROCEED 
6 10 OF19 1 BSBB Os SE TBRK ; SET BREAKPOINTS 
20 6A ES OF1B 16 ; BBCC Os AV_T tr (R10) TEST AND CLR TRace FLAG 
00 58 AB OCOk:stiéE ELF 16 ; 308: BBSS  #PSL$v_fBiT, SAVPSL-B(R115 ,4 $ ; SET TBIT 
£24 1611 IF OF. SW_PROCESS FOR PROCESS VERSION 
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50 01 00 OF42 16 MOVL  #1,R0 + RETURN 
04 0645 1626 RET F 
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50 Ds «(OES 1646 CLRL =. RO ; RESIGNAL 
04 £54 164 RET + UNEXPECTED TBIT EXCEPTION | 
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EAS 169 IF DF, SW PROCESS ; 
F EA 169% PUSHR #*M<RO,R1,R2,R3,R4,R5> : SAVE REGISTERS FOR PROTECTION CHANGE 
54 50 00 OFA? 1695 MOVL  RO,R4 : SET START ADDRESS OF RANGE 
55 : p EAA 169% MOVL  RO.RS : AND END ADDRESS 
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DELTA 


RSB 
PUSHAB W*DPBYTE 
PUSHAB W*DPWORD 


isee’e 
1550°CF OF 


SET ADDRESS OF BYTE ROUTINE 
SET ADDRESS OF WORD ROUTINE 


v04=000 DEPOSIT - DELTA. SRCIXDELTA.MAR; 1 
EE3 1734 -SBTTL DEPOSIT 
EES 1735; 
EE V7 $ ; DEPOSIT DATA 
EES 17 8 bEPOSIT: ; 
3F 6A 61F)~=6O EO SCOOEE3. «17 BBS #V_PREG, (R10) ,40$ + BR IF PROCESSOR REGISTER 
EE? 1740 WF DF =SwW_PROCESS ; 
54 68 00 OEE? 1741 MOVL  CURDOT-B(R11),R4 : GET CURRENT DOT 
FO AB ODS) sOOEEA 1246 TSTL B1D~B(R11) : CHECK FOR ARBITRARY PROCESS DEPOSIT 
“a 4 EED 174 BNEQ 50$ + BR IF YES 
EEF 1744 .ENDC ; 
EEF 1745 CASE CURTYPE-B(R11) , TYPE=B, <- ; SWITCH ON TYPE 
EEF 1746 $,- ; BYTE 
OFF 1748 $08"- : ONG 
OEEF 174 es : 
OEFA 1750 IF NDF ,SW_PROCESS ; 
EFA 1751 10$:  MOVB  F1-B(RT1),@CURDOT-B(R11); STORE BYTE 
OEFA 1736 RSB + RETURN 
OEFA 1753 20$:  MOVW  F1-B(R11),@CURDOT-B(R11); STORE WORD 
OEFA 1754 RSB + RETURN 
OEFA 1755 30$: MOVL  £F1-B(R11),@CURDOT-B(R11); STORE LONG 
EFA 1296 RSB > RET 
OEFA 1937 40S: MTPR F1-B(R11),CURDOT-B(R11) : SET VALUE IN PROCESSOR REGISTER 
OEFA 1759 FF : FALSE If PROCESS VERSION 
OEFA 1760 10S: : BYTE DEPOSIT 
5554 p60 OEFA 1761 MOVL : START AND END ADDRESSES EQUAL 
4c 0 OEFD 1768 BSBW = SETWRT : SET WRITABLE, OLD PROT TO R2 
r 64 D 30 F00 176 MOVB =F 1-B(R11), (R4) : STORE BYTE 
O4F 30 £04 1764 BsBu REPROT : RESTORE PROTECTION 
FOB 176 : 
s$ $4 01 Ct oF Oe 1789 20S: ADDL3 #1,R4,R5 ; WORD DEPOSIT, FORM END ADDRESS 
0484 30 OF OC 1768 BSBW = SETWR : SET WRITABLE | 
64 D 80 FOF 1769 MOV) =—« F1=B (R11), (R4) : STORE WORD | 
04E4 39 a6 1770 BBW REPROT : RESTORE PROTECTION | 
Fi? (177 . 
55 54 03 5 F17 1308 30$:  ADDL3 #3,R4,R5 ; LONGWORD DEPOSIT, FORM END ADDRESS 
Q4As 0 OFIB 1774 BSBW 3s SETWR + SET WRITABLE | 
64 OD 0 OFIE 1775 MOVL F1-B(R11),(R4) + STORE LONG WORD 
04D 0 f 1776 BBW REPROT : RESTORE PROTECTION | 
F26 (177 , 
F26 1558 40$: : PROCESSOR REGISTER 
= F 7 9 SCHKRNL_S B*DEPPREG, (AP) : DEPOSIT IN PROCESSOR REGISTER 
F 17 4 50$: > DEPOSIT IN ARBITRARY PROCESS 
F 17 CASE CURTYPE-B(R11) , TYPE=B, <- : SWITCH ON TYPE 
F 1784 $,- : BYTE 
F 1785 0$,- WORD 
F 17 : 80$> LONGWORD 
95 F 17 
F OF 17 : 
11. OF 17 
F 1790 
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04 11 OF49 17 ; 
1581'CF OF OF4B 1786 808: PUSHAB W*DPLON : SET ADDRESS OF LONG ROUTINE 
0 AB ODD OF4F 1793 908: SHL = PID=B(R : SET PID OF TARGET 
68 DD OFS2 1794 PUSHL RDOT=B(R11) + ADDRESS FOR STORE 
D8 AB «ODD SCOOFS4 «1795 USHL -B(R1 + VALUE TO STORE 
94 DD 0F57 1796 SHL + ARGUMENT COUNT 
50 DO «0FS59 «179 MOVL  SP,RO t POINTER TO ARGUMENT LIST 
EC AB OS. sOOF 5c 1798 TSTL MFYFLG-B(R11) + CHECK FOR STORE ENABLED 
OD 13 OFSF 179 BEQL : BR IF NOT 
F611 00 SCMKRNL_S W*QGET, (RO) : CALL TO QUEUE REQUEST 
es wm Ft Fg 1801 100$: ADDL #20,SP + CLEAN STACK 
6 a4 0¢ RSB + AND RETURN 
0000 ae 1 04 DEPPREG:.WORD 0 : DEPOSIT INTO PROCESSOR REGISTER 
6D OFBI'CE 9E OF74 1805 MOVAB W*PREXC, (FP) + SET EXCEPTION HANDLER 
68 08 AB. DA OF79 1 06 MTIPR  F1-B(R11),CURDOT-B(R11) : PLACE FIELD V ALUE iN REG 
50 01 DO OF7D 180 MOVL #1,R0 + RETURN SUCESS 
04 Hi 08 RET : 
0000 OF81 1810 PREXC: .WORD 0 : PROCESSOR REGISTER EXCEPTION HANDLER 
51 OB AC 04 C1 OF 83 1811 ADDL3 #4,8(AP),R1 : POINT TO EXCEPTION FP 
AD DO OFBB 181¢ MOVL. (RI),12¢FP) ; ser AS RETURN FP 
10 AD 91'AF 9E OFBC 181 MOVAB 8*10$,16(FP) SET RETURN ADDRESS 
50 3C OF91 1814 10$:  MOVZWL #1,RO SET NORMAL STATUS 
04 0F94 1815 RET AND RETURN 
OF9S 1816 
0F95 1817 .ENDC 
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F 19 .SBTTL EXECUTE = PERFORM COMMAND STRING 
3 1 ? : EXECUTE 
F951 ‘ . 
F951 EXECUTE: ; 
09 6A 08 €1 OF95 1826 BBC #V_F1,(R10) , 108 + EXIT IF NO ADDRESS 
9 08 ap b9 F99 1805 MOVL  F1=B(R11),R9 : SET CHAR STRING 
03 12 OF9D 1 6 BNEQ 108 + NOT NULL 
F5BBOO31)s«COOF OF 1 BRW SUPERST + SUPER RESET 
05 FAG 8 10$ RSB + RETURN 
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FAS 1835 PREG: ; PROCESSOR REG Is TER MODE 

00 6A OF F2 FAS 1 : BBSS  #V_PRMODE,(R10),108 i Ser PROCESSOR REG FLAG 
FA? 1837 108: RSB ; RETU 
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“Ty war las FOR DEBUGGER ENTRY 
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EXCEPTION HANDLER 
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$ ADDRES=WREXCEPT 
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LAST CHANCE HANDLER 
ACMODE =#PSLSC mat - FOR USER MODE 
VECTOR=#2 ; $PEC IFY LAST CHANCE HANDLER 
S$ xi TEL t DECLARE USER MODE EXIT HANDLER 
“g°mcR2 R3.Re R5> ant 
; 2e 


ND, R5 ; DELT 


I 
I 
pri 


page protection on entire 
mage to user writeable. 


; FIRST DEFAULT INPUT 


; ON ERROR, USE TT 


RO,9$ 
% #SS$_NOTRAN 
: USE TT IF NO TRANSLATION 


S LOGNAM=TRNINPUT,=- ; TRANSLATE ALL THE WAY 
RSLLENSTRNINPUT - 
Sates FANLNPUT 


0. -#SS$_NO 
; TRY ANOTHER LEVEL 


LLL LLL LLL LLL LLL A ————EEE — me a 


H 2 
= MULTIMODE PROCESS DEBUGGER 15=SEP=1984 23:38: AX/VMS Macro V04-00 Page 5 
proves OO ECON THIS IAL STATION rant oe 4 9 83:08:35 DELTA. SRCJXDELTA.MAR; 1 2 
18 F3CF f 91 3 95 cue QTRNINPUT +4 ,#*K18 ; CHECK FOR PROCESS PERMANENT 
F3C3 CF OG (3 10¢4 1 38 SUBL #4, TRNINPUT ; REMOVE THE ESCAPE HEADER 
FRE CF 46060666 C1009 «1 98 ADDL #4, TRNINPUT+4 
10CE 1899 S$: SASSIGN_S TRNINPUT, TTCHAN ; DO THE ASSIGN 
1650 €8 10DF 1 0 LBs “R0,1 : TRY TT ON ERROR 
1 Eg 19 9$: ASSIGN_S TTNAMD,TTCHAN : ASSIGN DEVICE 
0150 €8 10F3 1 ; BLBS ~RO,10$ + CONTINUE IF SUCCESS 
. Fg 19 RET : ELSE EXIT WITH ERROR CODE IN RO 
54 FEAD CF 10F? 1904 10$:  MOVAB  SALUTE,R4 + SET ADDRESS OF SALUTATION 
F7E 5 10FC 1905 BSBW QuTZ STRING OUTPUT IT 
03 18 AC £8 1 10FF 19 6 BBC #CLIS$V_DBGEXCP,24(AP) ,15$ - BR IF LATER INVOCATION 
FEFD 31 «1106 «19 BRW NOBRK ; VIA $DEBUG COMMAND 
OC'AF 6C f 1 7 19 15$: CALLG (AP) ,8°208 : CREATE TOP CALL FRAME 
: ’ $ NULL ENTRY MASK 
04 AC 04 00°8 i 1311 ” Apo” Hs (AP) : ADVANCE STARTING ADDRESS POINTER 
7E 04 BC pf 144 1318 tHE #2,84(AP) ,-(SP) : FETCH CURRENT STARTING ADDRESS 
7€ Be ec ge C 1119 1914 MOVZWL asst DEBUG, -(SP) + SET EXCEPTION CODE 
3 DD 111E 1915 PUSHL #3 ~ : SIGNAL ARG COUNT 
0 ; 0 11 6 191 MOVL »RO : SAVE POINTER 
E 6 D 11 1917 MOva RO,=(SP) : SAVE PHONY RO,R1 
0 DD 1126 191 PUSHL : DEPTH 
% DD 11 § 1319 PUSHL FP : FP 
4 DD 112A 1920 PUSHL #4 + ARG COUNT 
DD 112C 1921 PUSHL SP + POINTER TO MECH 
5 DD 112 19 PUSHL RO : POINTER TO SIGNAL 
vico'ce §«=6002)—=—«*F@®™SCdA?C” 6 19 i CALLS #2,W*EXCEPT : SIGNAL PHONY EXCEPTION 
C 8 11 1924 ADDL #12,SP : CLEAN BACK TO RO,R1 
PR RUS oe fi Ee He re 
- 6 i E 19 REL , : RETURN TO TARGET PROGRAM 
1136 
113F 19 
1 F 19 0 ENABLE LOCAL_BLOCK 
: .wORD 0 ; ENTRY MASK FOR CMKRNL PRIVILEGE 
12FA'CE 009? Wa) 13 : akimants PUSHAB OP PLREXV KERNEL : SET TO USE KERNEL RUNDOWN HANDLER 
1361°CF 01 FB 11465 1934 CALLS #1, W*SETRUNDWN : SET UP APPROPRIATE RUNDOWN HANDLER 
7F 9% £6 114A 1935 LBC 2 : BRANCH IF CAN'T SET UP HANDLER 
114D 19 : SSETEXV.S ADDRES=B*EXCEPT ,- ; 
1140 19 PRVWNDSKCOND SPRIMARY.~ or KEANE 
= o™ & 
Wep 3 } VECTOR=# . > PRIMARY VECTOR 
11ae 1904 eainerate PRUTMIDSKCOND CAST EHANC =" : 
1 f 196 ACRODESAPSL SC RERNEL -" ; SET KERNEL MODE LAST CHANCE HANDLE 
1156 1328 VECTOR=#2 ; SPECIFY LAST CHANCE VECTOR 
ETEEXC: “WORD 0 > ENTRY MASK FOR CMEXEC PRIVILEGE 
apices BP He Teh ETE nusue Hee exec SEIMURE EXEC RUM HAMBLER 
at af o} £9 1 i a a R : sessaaiinarane : BRANCH IF CAN'T SET UP HANDLER 
$ s - : 
1183 1983 . PRVHND=ECOND_PRIMARY,- ; 


- 


<o 


, 
2 | 
DELTA = MULTIMODE PROCESS DEBUGGER 15-SEP-1984 23:38:31 VAX/VMS Macro v04-00 Page 57 DE! 
v04=000 PROCESS DEBUGGER INITIAL LEAT ION 3-8 ats 7 83:08:35 DELTA. SRCJXDELTA.MAR; 1 ve wD 5 
11 19 j ACMODE=#PSLSC_EXEC,- ; SET EXEC MODE EXCEPTION HANDLER 
1182 1 VECTOR=#0 ; PRIMARY VECTOR 
11 19 4 SSETEXV_S ADDRE S=U"CATCHALL “ ; 
1194 1955 PRVHND=ECOND_LASTCHANC,= : 
1194 1 : ACMODE=APSLSC_EXEC,- | ; SET EXEC MODE LAST CHANCE HANDLER 
1194 VECTOR=#2 ; SPECIFY LAST CHANCE VECTOR 
11A7 1 5 . SSETEXV_S ADDRES=B“EXCEPT ,- : 
11A7 1960 PRVHND=SCOND_PRIMARY,- ; 
11A7 1961 ACMODES#PSLSC_SUPER,- ; SET SUPERVISOR MODE EXCEPTION HAND 
A711 6¢ V = + PRIMARY VECTOR 
1189 13 SSETEXV_S ADDRES=W*CATCHALL - : 
1189 1964 PRVHND=SCOND_LASTCHANC,= : | 
1189 1965 ACMODE=#PSLS$C_SUPER,- | ; SET SUPERVISOR LAST CHANCE HANDLER 
1189 1966 VECTOR=#2 ; SPECIFY LAST CHANCE VECTOR | 
04 11¢C 196 208: = RET ; 
11¢0 1968 DISABLE LOCAL_BLOCK 
0000 11CD 1971 EXCEPT: .woRD 0 : EXCEPTION HANDLER ENTRY MASK 
11CF 1978 SSETEXV_S ADDRES=B*EXCEPT,- ; 
11CF 197 ACMODE=APSLSC_USER,- _; 
11CF 197% VECTOR=40 ; RE-ESTABLISH USER PRIMARY VECTOR 
50 04 aC g4 C1 11DF 1975 ADDL3 #4,4(AP),R ; GET POINTER TO SIGNAL 
1 DC 1166 197% MOVPSL R : GET CURRENT PSL 
51 51 O02 18 EF 1166 197 EXTZV #PSL$V_CURMOD ,#PSL$S_CURMOD,R1,R1 : 
43 F264 CF 320651~—CtCO#E2 1168 1978 BBSS R1,DBGACTIVE,4 ; BR If ALREADY ACTIVE 
60 00000464 BF D} a 197 cHPL ! $s_TB1T, (RO) ; Is IT TB1T? 
rcea ST TIFA. 1981 S$: BRU KDELTBIT ; YES, A TBIT | 
60 00000414 i D1 16D 19 Q 10$: cMPL #SS$_BREAK, (RO) ; Is {1 BREAKPOINT? | 
FB ; ¥ 1 é 1984 15$:  BRW XDELBPT > YES, A BREAKPOINT 
1 19 5 208: : SOME OTHER EXCEPTION | 
60 00000928 f D4 08 19 cHPL #SS$_UNWINDING, (RO) ; Is 1 UNWIND ING | 
80  0000042¢ F p41 12 19 cHPL #SS$_COMPAT, (RO)¢ : Is IT COMPATIBILITY MODE EXCEPT? | 
60 01 of 1giB 199 CHL (ROD ; 15-17 COMPATIBILITY GPT? | 
60 OF ot 1 1998 CRPL #7,(RO) ; 1s 11 COMPATIBILITY TBIT? 
70 0000046C bf p} 5 1934 308: cnPL #SS$_DEBUG,~(RO) ; Is IT DEBUG EXCEPTION? 
FABA 3 1 ‘ 1 BSBW 0s SAVE $ SAVE EVERYTHING 
FC21 1 199 BRW XDELDBG : AND TREAT AS FUNNY BPT 
00 F298 CF «OOS1S—s«é#SS i 4 i va BBCC R1,DBGACTIVE,50$ ; DRE CEBUG ACTIVE. 
, 3 bé A 508 cURL RO- r + RETURN FALSE FOR RESIGNAL 
50 01 v0 1 b ; 608 MOVL  #1,RO : IGNORE AND RESIGNAL 
124 RET ; 
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TIMODE PROCESS DEBUGGER 15*SEP=1984 23:38:31 VAX/VMS Macro v04-00 Page 59 D 
ER FOR DEBUG a xtEPt ONS 3: oatt y 83:08:35 DELTA. SRCIJXDELTA.MAR; 1 ° (1) $ 

00 FIE7 CFOS 1268 BBSS 1, DBGACTIVE,208 ; SET DELTA ACTIVE FOR MODE | m 
FBO4 iF FF 20$: BRW XDELDBG ; | : 
00 20 54 49 58 45 20 0A OD 12F1 5 EXIMSG: .ASCIZ <CR><LF>/ EXIT / : mM 
1h $388 grat 

FA ; ENABLE LOCAL BLOCK N 
10FA : RESET INNER MODE EXCEPTION VECTORS. THIS CODE IS CALLED AS A | N 

cA g : PRIVILEGED IMAGE RUNDOWN HANDLER TO ENSURE ITS EXECUTION. | N 

FA ie : THIS ENTRY POINT IS USED IF THE PROCESS HAS CMKRNL PRIVILEGE | " 
IEA 3079 CLREXV_KERNEL : ; CLEAR EXCEPTION VECTORS | N 

FA 7 ; RESET PRIMARY AND LAST CHANCE EXCEPTION VECTORS FOR KERNEL MODE | 9 
12FA A: . SSETEXV_S ADDRES=@KCOND_PRIMARY,= ; 0 
12FA 0 ACMODE=#PSLSC-KERNEL,- ; 0 
10FA 1 VECTOR=#0 + PRIMARY VECTOR 0 
1308 : SSETEXV_S ADDRES=@KCOND_LASTCHANC, = : 0 

1 98 ACMODE=#PSLSC"KERNEL,- ; 0 

08 6 4 VECTOR=#2 + LAST CHANCE VECTOR 0 

iC 0 : THIS ENTRY POINT IS USED IF THE PROCESS HAS CMEXEC PRIVILEGE 9 

iC 6 8 CLREXV_EXEC: : CLEAR EXCEPTION VECTORS 9 

: + ey : RESET PRIMARY AND LAST CHANCE EXCEPTION VECTORS FOR EXECUTIVE MODE 3 
131¢ 3 ' SSETEXV_S ADDRES=@ECOND_PRIMARY,- ; 0 
131¢ 9 ACMODE=#PSLS$C EXEC, = : | 0 
131C 2094 VECTOR=#0 + PRIMARY VECTOR 0 
1320 095 SSETEXV_S ADDRES=@E COND_LASTCHANC,- : 0 
1320 36 ACMODE=#PSLSC"EXEC,- 0 

D o VECTOR=#2 t LAST CHANCE VECTOR - 

i 093 : RESET PRIMARY AND LAST CHANCE EXCEPTION VECTORS FOR SUPERVISOR MODE | 0 
133— 2101 ° SSETEXV_S ADDRES=@SCOND_PRIMARY,= ; 0 
133 3109 ACMODE=#PSLSC"SUPER,- : | 0 
133— 21 VECTOR=# + PRIMARY VECTOR 0 
134F 2104 SSETEXV_S ADDRES=@SCOND_LASTCHANC, = : | P 
134F 2105 ACMODE=APSLSC"SUPER,- _; P 
134F 21 6 VECTOR=#2 t LAST CHANCE VECTOR | P 

05 60 RSB : p 
1361 21 $ DISABLE LOCAL_BLOCK P 

P 

P 

P 

P 

P 

P 

P 

P 
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SEY UP RUNDOWN HANDLER —-»-"S-SEp=19B6 0:08:35 EDELYAssncSkDeLtAcran1 = 28° Of, 


~SBTTL SETRUNDWN = SET UP RUNDOWN HANDLER 


ou 


+ 
+ 


FUNCTIONAL DESCRIPTION: 
This routine inserts the specified routine entry point into 
the process’ rundown vector. CMKRNL privilege of running in 
kernel or exec mode is required. 


CALLING SEQUENCE: 
CALLx SETRUNDWN 


| 
| 
INPUT PARAMETERS: 
4(AP): address of rundown handler routine 
IMPLICIT INPUTS: 
NONE | 
OUTPUT PARAMETERS: 
NONE 


IMPLICIT OUTPUTS: 
NONE 


DDD DD DDD DDD DDD DEDEDE PPP PP PAPA A AAA AAA AAA AAA AO 
a a a kh OF OO 
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cm a a a a a ad a et 8 8 4 ss a 4 Ws ss 2 ss a a ts a a tt z — 


COMPLETION CODES: 
SSS_NORMAL if successfully completed 
SS$_NOPRIV if not privileged 
4 SIDE EFFECTS: 
41 NONE | 
4 | 
> pes | | 
$2 WEAK CTLSGL_USRUNDWN 
23 SE TRUNOWN: | 
0000 8 -WORD “<> | 
50 0c & MOVPSL RO : get PSL of cailer 
03 50 02 16 D p CMPZV #PSLSV_PRYMOD,#PSL$S_PRVAO -RO APSLSC USER 
1 : 6A BLSSU ‘58% 3 branch DELTA started up in inner mode | 
5¢ D 6C ; PUSHL AP 3; build SCMKRNL arg List on stack 
99001 380"EE F of PUSHAB use 3; address of kernel mode routine 
00 GF 2 fe a 3 4 LS #2,G*SYSSCMKRNL 3; call actual routine in kernel mode 
7C 
50 =O 0 7c § 5$: MOVL #SS$_NORMAL ,RO ; DELTA started up in an inner mode 
7F RET 3 do not set up a rundown handler 
: The foll wine code executes in kernel mode and actually inserts the 
: entry point into the rundown vector. 
0000 5 108: -WORD “<> 3 save no re isters 
SETIPL 21°48 ASTDEL ; lock out AST’s while modify the vector 
51 00000000°GF  9%€ MOVAB G*CTLSGL_USRUNDWN, R1 ; Get rundown vector pointer address. 


AX/VMS Macro V04-00 Page 
DELTA. SRCJXDELTA.MAR; 1 


; Branch to NOP routine if no present. 


; Get address of rundown vector. 


mM 2 
064-000 SETRUNDUN © SEY UP RUNGHUNC HANDLER MBrSeer8Re 85i08:85 
so Shot FO Lie HE Rats Hannay 
BBo0080Grgee* OF OO laze gt Rov SEB ECE UU, 
og TUS SESE ER 
a0 316 + BO 13A 124 MOVW anxot te. «ROD * 
80 04 at p 13aB 21 MOV rob: )+ 
0 13AF 1% MOV ! x0 (RO) + 
61 06 «CO 1 é 17 ADDL 
00000004 Gf 5s AQ 1385 217 ADDW oI LAcsAy, y CSET +4 
0 01 vO 138¢ ia 198: HOV Hf NORMAL 
138F 180 2 : SETIPL 
04 13c2 21 RET 


check if another vector will fit 
branch if not 
oint to free vector 
neort JSB af... 
insert cout ine ne afeerocs 
uncer’ f 
pdate qnd Sola ¢ 
adi ust image activation end pointer 
ndicate yccess 
enable AST's again 
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N 2 
ES VRITABLE "SSEb=H9RC 65:08:35 EDECYASsReSnbeLtacman;1 = "#8 CF, 
-SBTTL SETWRT = SET PAGES WRITABLE 


; MAKE SPECIFIED RANGE OF PAGES WRITABLE 


: R4 = STARTING ADDRESS 
; R5 = ENDING ADDRESS 


S RO-R2 DESTROYED 
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DELTA ° a4 
v04-000 SETw 


et a ee a a a ss a at td tt 4 2 SY ae 


C3 21 
C3 31 
3 21 
C3 31 
i 
im 
(3 31 
3 at 
43 54 7D 13¢3 = 31 MOV = R4, = (SP) H RANGE Onto STACK 
5 —E De 13¢6 21 MOVAL =(§P),R2 RESS FOR RETURN OF PROT 
(9 21 SCMKRNL_S B*SETPRTK, (R2) N KERNE FIRST 
4 59 €8 1305 21 BLBS TINUE IF R 
E2"‘AF 62 FA 1308 21 CALLG (RB) B*SETPRTK NOT ENOUGH PRIV, TRY USER MODE 
04 BA 130C 2199 108: POPR #*M<R2> TORE PROTECTION VALUE 
SE 08 co D ADDL  4#8,SP AN STACK 
E RSB URN 
0000 13€ SETPRTK:.WORD 0 : 
E SSETPRT_S INADR=4(AP),- 
£4 PROT=#PRTSC_UW,-; WRITABLE BY ALL 
£4 ACMODE=40,- : 
£4 PRVPRT=(AP) + ADDRESS AT WHICH TO RETURN PROT 
50 01 00 Fé MOVL #1,R0 + ALWAYS SUCCESS 
4 F RET : 
FA REPROT: ; RESTORE PROTECTION 
05 FA RSB 3 


DELTA = MULTIMODE PROCESS DEBUGGER 1 mi tse ts 9 $888: 3 AX/VMS Macro V04-00 Page 63 
-000 FETCHP = FETCH DATA FROM ANOTHER PROCESS 5-SEP=-1984 00:08: DELTA.SRCJXDELTA.MAR; 1 (1) 
} fe \° -SBTTL FETCHP = FETCH DATA FROM ANOTHER PROCESS 
15FB 18 FETCHP: CASE {ores ,» TYPE=B,<- : 
135FB 1 3 9 => BYTE 
13FB 18 Ot ea : 1 => WORD 
135FB 19 3; 2 => LONG 
93 1208 0 RSB 3; UNKNOWN 
14A3'CF F 14 1 10$: PUSHAB W*FPBYTE ; SET FOR BYTE FETCH 
OA 11 1408 § BRB 3 
1SO05°CF 9F 1400 208: PUSHAB W*FPWORD ; SET FOR WORD FETCH 
06 11+ «#161 4 R 40$ ; 
1567°CF OF 141 5 70s: PUSHAB W*FPLONG ; SET FOR L ONevORD FETCH 
FO AB DD 141 § 40$: PUSHL PID-B(R11) ; PID OF TARGET PROCESS 
04 AB OOF 141A PUSHAB QUAN-B(R11) ; SET ADDRESS to” RETURN VALUE 
6B DD 141D 8 PUSHL CURDOT-B(R11) ; AND ADDRESS OF VALUE 
04 OD 141F 9 igs #4 3; ARGUMENT COUN NT 
50 SE 00 1421 0 SP,RO 3; SAVE POINTER ae eos biet 
1424 1 SCMERNL _5 W*QGET, (RO) 3 Q AST He DATA FETC 
0750 €9 1431 ¢ BLBC RO,50$ ; BR IF RILED 
1434 SHIBER_ 3; WAIT FOR DATA TO RETURN 
SE 14 0 ite 4 50$: ADDL ~ #20,SP ; CLEAN STACK 
05 143€ 5 RSB ; AND RETURN DATA 
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C2 
p LTA - MULTIMODE PROCESS DEBUGGER “SEP=1984 AX/VMS Ma 4-00 4 
-000 QGET = QUEUE AST TO bee DATA FROM ANOTHE ~SEP=1984 83; 38: HY DELTA. SRC roe eR Bans she et) 

14 F i .SBTTL QGET = QUEUE AST TO GET DATA FROM ANOTHER PROCESS 
143F § ; INPUTS: 04(AP) = LOCATION OF DATA 
163F 2240 : (AP) = RETURN LOCATION 
163F 2241 : (AP) = PID OF TARGET PROCESS 
14 f 46 ; 16(AP) = CODE SEGMENT POINTER 
143F ¢ .WEAK  EXESALLOCBUF ; MAKE FOLLOWING CODE OPTIONA 
163F 2245 “WEAK  EXESDEANONPAGED . - 
1435 46 “WEAK © SCHSWAKE 
143F 2246 SWEAK © SCHSQAST 
1? : $8 WEAK SCHSGL _MAXPIX 

00000010 143F 2250 FP_ORIGPID=ACBSL_AST 

00000014 143F 5951 FP TADDREACBSL AS ASTPRM 

00000014 143F 2¢ FP-VALUE=ACBSC_ASTPRM 

0000001 14 f 33 FPRETLOC=ACBSC_KAST+4 

003C 143F 2255 QGET WORD “itch? R3,R4 RS? ; ENTRY MASK 
50, O88 BF SC 1441 8056 MOVZWL ONEXPR ,R ; ASSUME BAD PIX 
51 00000000" GF 3 1446 B7 MOVA GPEXESALLOCBCF a ; WERE We LINKED WITH Svs STB SYMBOLS? 
00000000'9F OC AC Bl 144F 59 CMPW 12(AP) ,@#SCHSGL_MAXPIX : CH 
AC 81 16GF 9639 cHpw 18 aa*SCHSGL_ I cH ECK PI BX FOR LEGAL PROCESS 
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DELTA = MULTIMOD ESS DEBUGGER 15*SEP=1984 23:38: AX/VMS Macro v04-00 Page 6 
v64-000 DPBYTE = D pos Byre Ft PROCESS a8 eats 83:08335 DELTA. SRCJXDELTA.MAR; 1 ° + 
14EE +$BTTL Sere = DEPOSIT BYTE TO PROCESS 
0015" 14 ¢ seprre : SIZE OF CODE SEGMENT 
14F iFnowet & L.afp RETLOC (RS) 30$ IF NOT WRITABLE vite SKIP IT 
10 BS 1405 90 16F MOVB ALOE (R5) ,aFP_ ae ttoc chs} ALUE 
D0 14FC 30$: MOVL : SET avbre he NER VRELEASE 
00000000'9F 17 14FF JMP RSZRO awononata + FREE BLOCK AND EXIT 
1505 : END OF CODE SEGHENT 
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, LTA = MULTIMODE PROCESS DEB yt 15-SEP-1984 att 38: HI AX/VMS Macro V04-00 Page 67 x0 
v04=000 WOR 


FPWORD = FETCH WORD FROM PROCESS “SEP=1984 DELTA. SRCIXDELTA.MAR; 1 (2) vO 
1 1 .SBTTL FPWORD = FETCH WORD FROM PROCESS 
0049" 1 11 FPWORD: .WORD 208 2 ; SIZE OF CODE SEGMENT 
1 1 iFNORD aFP_ADDR(RS),10$ : BRANCH IF NOT READABLE 
14405 16 85 BO 1 1 mOVW oFbeA DBR(RS) FP. VALUE(RSS ; GET VALUE 
CA 10 A p 1 14 10$ MOVL FP RIGPIDGRS) KCB$L_P1D(R5) ; SET PID FOR RETURN AST 
A 8 8F 151 15 MOVE  #*880,ACBSB_RMOD(RS)~ — ; SET FOR KAST AGA IN 
18 A B'AF 9— 151 1 MOVAB 6*°20$.ACBSL-KAST(R5) + SET FOR NEW AST ADDRESS 
, : 04 9A 1 1 MOVZBL #PRI$.TICOM>R2 : SET PRIORITY INcRERENt CLASS 
00000000'9F 17 1 18 P aaSCHSQasT 3 QUEUE RETURN AST 
1 19 208 IFNOWRT #2,@FP aera aae? : IF NOT WRITABLE THEN SKIP IT 
1C 85 1405 80 1 0 Vw sOFP VALOE(R ) ,@FP_RETLOC(RS) : RETURN VALUE 
1 ocasd 00 1 1 30$ VL ACB Bs, pl PID(RSS,R1~ ; GET PIb FOR vce 
1538 é SETIPL “iP “SYNCH + RAISE TO SYNCH 
00000000'9F 16 153€ JSB a*SCHSWAKE + WAKE PROCESS 
1544 4 SETIPL @# af _ASTDEL : LOWER IPL 
50 55 09 1547 5 MOVL + SET ADDRESS FOR RELEASE 
00000000°9F 17 154A 6 JMP aaé XESDEANONPAGED + FREE BLOCK AND EX 
1350 f 90$: + END OF CODE SEGMENT 
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DPWORD = DEPOS! 


1¢ B5 so!” 82 AS D9 
00000000' 3 i 


WORD DELTA. SRCI XDELTA.MAR; 1 


“sorte Bob 2 = DEPOSIT WORD TO - PROCESS 
OF uf ee SEGMENT 


: PWORD: ; 

1 BOS iFnovet gat RETLOC (RS), 308 IF NOT WRIT ABL THEN SKIP IT 
1 MOVW ALOE (R5) ,a@FP_RETLOC chs) 

1 5 4 30$: ROVE ; 
6 JMP 17 alae 3 
1567 . 


OL OCK AND EXIT 
§ 90$: END OF CODE SEGMENT 
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1 
0048' oe FPLONG: ,WORD 
1F NORD 
MOVL 
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14 A 148 Dd 

Os A 1 
aA 

WEAS BCAF 9 
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worn 


3 
1 4 : 

1 4 
1 4 as} : 
1 4 ( 
1 4 ; 
1 4 ; 
3 D4 1584 234 CLRL ; 
00000000'9F 17 1586 234 JMP Be scHSOAST : 
1 48 208: IFNOWRT #4,@FP_RETLOC(RS),308 ; 
1¢ 85 1405 00 1 4 MOVL FP’ VALOE(RS) ,@FP_RETLOC(R 
1 ocas dO 1 3 : 30$:  MOVL ACBSL_PID(RSS,RI ; 
159¢ SETIPL #IPL$-SYNCH F 
00000000'9F 16 159F § JS6 #SCHSWAKE 3 
15A SETIPL #IPL$_ASTDEL ; 
50 55 pO «(15a 4 MOVL ; 
00000000°9F 17 1548 38 JMP awe XESDEANONPAGED ; 
13b Seep 708: ' 


MOV ee a 
MOV (R 
6+ 2 -ACBEE “RASTUR 


SSERT8RS 80:08:35 


EALONG., = FETCH LONG FROM P 
r+ gai Appa (Ra). 10$ 
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AX/VAS nes ro V04-00 
DELTA. sRci XDELTA.MAR; 1 


noes 
F CODE SEGMENT 
aon" IF NOT READABLE 


GET VALUE 
; set Ah 4 ~ aha AST 
oy KAST 
AST ADDRESS 
INCR 
URN AST 
i.e Rhy SKIP IT 
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= MULTIMODE PROCESS DEB BUGG 15=SEP-1984 AX/VMS Macro v04-00 Page 70. 
DPLONG = spat See ete ES PROCESS Bree Ieee abe sss LOR YRScmeSkbet TA. HAR: 1 oe 79, 
1581 .SBTTL ONG, = DEPOSIT LONGWORD 10 PROCESS 
0015" 1 8 $0 pps onc: WORD ets : SIZE OF CODE SEGMENT 
158 [ENOWRT afP Pare! occas) 30$ NOT WRITABLE THEN SKIP IT 
10 BS 14 AS DO «615BA OVL RS) ,aFP RE TLoc«ks . RETURN VALU 
50 3 p 158F pm MOVL 43 “KO ; SET ADDRESS FOR RELEASE 
00000000 ' 9F 15¢ JMP in atanlon + FREE BLOCK AND EX! 
15¢ : F CODE SEGMENT 
15¢ | Bite ; 
15¢ -ENDC ; 
15¢ “END _—s'TEST * DECLARE START ADDRESS 
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Symbol table 
CR 
CRLF 
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DELTA = MULTIMODE PROCESS DEBUGGER 15-SEP=1986 23:38:31 VAX/VMS Macro V04-00 Page 72. 
Symbol table “pen 88S Boizoron FORCYRS Magee pons eO, aoe 14) | 


MFYFLG 078 R PSLSC_USER = 
MFYFLGS £8 R Sig tt teed = 
MODES R PSL$S_PRVMOD = 
L ff R PSL$V_CURMOD = 
RK = 9 tg Mt ed = 16 
NEGATE ASE R PSLSV-TBIT = é 
NEXTDOT C9 R QGET 45F R 
NEXTLOC R QUAN 090 R 
NEXTP gr QUANT fe R 
NMODES oo QUOT 2 2 
NOBRK 4 R 02 QUOTE FR 02 
NPRIM = ¢ ROBUF = 
SEC = RDCR = 
NTERM = A REGCOM C95 R 
NTMPBRK = 1 REGISTER 80 R | 
Ba8 R RELOC 1E R 
3 R REPROT . FAR 
A55 R RESET ACC R 
4 RESTORE DSA R 
0 RESTORR 078 R 
662 RETURN 0000648 R | 
R RSET 0 Bae R 0 
F 094 R RUBOUT = 7F | 
942 R 8 SALUTE FAS R 0 
008CB R SAV... = 0000039C R 0 
st 04 SAVAP 44 004 R 0 | 
08C4 R SAVE EB R 0 
000545 R SAVOCR QO000ES RO | 
4 22 R SAVPC 0 EO R 0 
ef R SAVPSL QOOO0ES R 0 
00601 R SAVR? QOO0AC R | 
FO R SAVRCR EA R 
4E R SAVREG 8 ASR 
DR SAVRXCS EC R 
OSF R SAVSP : 3 R 
CR SCANP 69 R 
BEI R SCHSGL_MAXPIX eeneereey GX 
: ; R SCHSQAST eenteneey GX 
SCHSWAKE aeneeeney GX 
4 R 8 SCOND_LASTCHANC 709 R 
U OR SCOND PRIMARY FOR 
00 R60 SECOND ADD R 
000 SEMI Aco 
D0¢ R 02 ah ‘ R 
000 1 SETEEXC 4R 
90000508 R SETKEXC 113 R 
DOOO0FAS R SETPRTK 1382 R 
4! R SE TRUNDWN 1 R 
Df SETWRT 15€5 R 
vt R SHFT FO R 
0 R SHOBRK R 
0 R SLASH FR 
y\ BR SLSH = F 
y SPACES FR 02 
; $S$_BREAK = 
$3$~COMPAT : ¢ 
$$$_DEBUG = C 
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DELTA = MULTIMODE PROCESS DEBUGGER 15-SEP-1984 38: AX/VMS Macro Vv04-00 Page 73 
Symbol table “aiR= 1986 85:28:08 YOELYA. SRE ENDP.MAR; 1 ’ (1). 
SS$_EXQUOTA = O1C V NEGATE = 7 
222.5 XOUOTAENR = AFF V-OPEN = 09 
SS$~EXQUOTASTRT S Ago V"PREG 2 F 
SSS_INSFMEM = 1 V_PRMODE = F 
SS$_NONE XP = 8 V_RUB = 
SSS_NOPRIV = 4 VTBIT = 
SS$_NORMA Ss 1 V_ TBI TOK = 
SS$_NOTRAN = 9 XBELACV CEB R 
SS$_TBIT = 4 XDELBPT DAQ R 
SS$_UNWINDING = f XDELDBG E55 R 
SS$_VECFULL = 438 OB E48 R 
us $9 R XDTSSTART FBF RG 
R KREG COC R 
STEPOVER 44 R XREGV 40D R 
SUPERST 5D R XSET OOOOCCA R 
SW_PROCESS = 00000001 
SYSSASSIGN eerennee GX 
SYSSCMEXEC ereneeee GX 
SYSSCMKRNL eteenree GX 
SYSSOCLEXH eereneee GX 
SYSSEXIT eeteeeee GX 
SYSSHIBER eteneeee GX 
SYS$al0w eeneenee GX | 
SYSSSETAST eerenree GX 
SYSSSETEXV eeeetere GX 
SYSSSETPRT eeeenere GX 
SYSSTRNLOG etenenee GX 
SYSSWAITFR aeeneeee GX 
SYSSWAKE eteneeee GX 
TAB R 
ERM R 
TERMASK R 8 
TERMASKADR R 
TERMASKLEN = 
vest am - R 02 
= 
TRMS_RODTF LERS = 0 
= 
TRNIRPUT Dt R 
TTCHAN D R 
TT1I0SB ' R 
TTITALST ' R 
TTITALSTLEN = Of 
TTNAMD Y R 
UNBRK u( R 
VALI ' R 
VALR R 
VALUE R 
V_ASCII = 
V_ATBRK = 
viFi = 
vafg s 
VF = 
V_F4 s 
v_F5 « 
V_INFIELD s 
V_INSTR = 


a 3 | 
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aAan-1980 $:29:08 DELTA.SRCJENDP.MAR; 1 ™ (1). vi 


DELTA 
Psect synopsis 


samme wewrenrseneaas $ 


! Psect synopsis ! 


dows nome cman coma} 


PSECT name Allocation PSECT No. Attributes 

- ABS . 0 8 8 ( -)» 00 ¢ 9} NOPIC USR CON ABS LCL NO oe NOE XE wore wont NOVEC BYTE 
SABSS$ ( st as -) NOPIC USR CON ABS LCL NOSHR’ EXE T NOVEC BYTE 
ZSDEBUG_CODE 15¢C8 ¢ 5576.) 02 ¢ 2.) PIC USR CON REL LCL NOSHR’- EXE AD URT NOVEC LONG 


¢ ewe nanrevsesancescanzresazece $+ 


! Performance indicators ! 


Ferme scwmmecaseaenen ar enanaae + 


Phase Page faults CPU Time Elapsed Time 
Initialization 29 :00:00.06 90:0 Hf 
zonnene processing 138 :00: yt 8.9) 

4 yabol table sort 0 :00: :0 4 9. 

os 406 :00:046.4 :00: 08 
Symbol table output 1 :00:00.17 :00: “90 
Psect synopsis output :00: BE :00:00. 
Cross-reference output 3 . $8 
Assembler run totals 112 66 :01: a .) 


the ve rking me Limit was 4250 pages. 
54 pages) of virtual memory were used to buffer the intermediate sade; 
128978 were 100 pages of symbol table space ot jece ed to hold 1725 non-local and 181 local symbols. 
2369 source yA. were read in Pass 1, produci ng object records in Pass 2. 
41 pages of virtual memory were used to define 40 macros. 
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! Macro library statistics ! 


Pree none menor wee nan nocwrae ¢ 


Macro Library name Macros defined 
sve ORY 1L18.ML8;1 1 
Sittin F sySL1 ISTARLET. MLB;2 33 
TOTALS (all i? braries) 7 


1738 GETS were required to define 37 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=L1S$:DELTA/OBJ=0BJ$:DELTA MSRC$: SWP/UPDATE=(ENHS: SWP) ¢MSRCS$: XDEL TA/UPDATE =(ENHS: XDEL TA) *MSRC$: ENDP/UPDATE = (ENS: ENDP) +E XEC 
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VAX/VMS V4.0 


DENTIAL .AND PROPRIETARY 


DIGIT 
CONFI 


Aide GHoBTI3A Se ) NT CORPORATION 
| VAX/VMS_V4.0 D_ PROPRIETARY 


